Заданы два числа. является ли хотя бы одно число положительным?
Информатика, операторы ветвления, 9 класс
Program z1; Var a,b:integer; Begin write(Введите 1-ое число - ); readln(a); write(Введите 2-ое число - ); readln(b); if (a>0) then writeln(Является) else if (b>0) then writeln(Является) else writeln(Не является);End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
