Дано число А. Определить, положительное, отрицательное оно или равно 0.

Question

Информатика

Феоктиста

6 февраля, 11:59

Дано число А. Определить, положительное, отрицательное оно или равно 0.

+3

Ответы (1)

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

Виктбрия · Answer 1

Var x: integer;

begin

write ('Введите число: ') ; read (x) ;

if (x>0) then writeln ('Ваше число положительное!') ;

if (x<0) then writeln ('Ваше число отрицательное!') ;

if (x=0) then writeln ('Ваше число равно нулю!') ;

end.