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

Question

Информатика

Артамонка

27 сентября, 14:12

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

+1

Ответы (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.