Question

заданы два числа. является ли хотя бы одно число положительным?
Информатика, операторы ветвления, 9 класс

Answer 1

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.