Даны три числа a, b, c. определить, есть ли среди них отрицательные, и вывести сообщение...

Question

Даны три числа a, b, c. определить, есть ли среди них отрицательные, и вывести сообщение на экран.

Answer 1

Var a,b,c:integer;beginreadln(a);readln(b);readln(c);if (a<0) or (b<0) or (c<0) then writeln('Отрицательные есть!') elsewriteln('Отрицательных нету!');end.

Comments

var a,b,c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a<0) or (b<0) or (c<0) then writeln('Отрицательные есть!') else<br>writeln('Отрицательных нету!');
end.