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

Question

Информатика

Боруля

26 июля, 08:49

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

+1

Ответы (1)

Знаете ответ на вопрос?

Геласия · 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.