Наберите программу, которая определяет, является ли введённое число положительным. выполнить программу при x=5, x=-7, x=0

Question

Информатика

Констанция

5 марта, 17:59

Наберите программу, которая определяет, является ли введённое число положительным. выполнить программу при x=5, x=-7, x=0

+3

Ответы (2)

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

Марьяныч · Answer 1

Pascal

program checker2;

var a:integer;

begin

writeln ('Введите число') ;

readln (a) ;

if a>0 then begin

writeln ('Число "', a,'" положительное') ;

end;

if a<0 then begin

writeln ('Число "', a,'" отрицательное') ;

end;

if a=0 then begin

writeln ('Число "', a,'" - нуль.') ;

end;

readln;

end.

Серж · Answer 2

Basic

input A

if A>0 then B="положительное" else B="не положительное"

print A; B