Даны три числа, если хотя бы одно из чисел больше 0, то вывести True, в противном случае False

Question

Информатика

Македон

2 мая, 13:14

Даны три числа, если хотя бы одно из чисел больше 0, то вывести True, в противном случае False

+1

Ответы (1)

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

Веруся · Answer 1

Uses crt;

var a, b, c:integer;

begin

clrscr;

readln (a, b, c) ;

if (a >0) or (b>0) or (c>0) then writeln ('True') else

writeln ('False') ;

end.