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

Задание:

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

Решение:

Var x: integer; beginwrite ('Введите число: '); read (x); if (x>0) then writeln ('Ваше число положительное! '); if (x<0) then writeln ('Ваше число отрицательное! '); if (x=0) then writeln ('Ваше число равно нулю! '); end.

Знаете другой ответ?

Отправить свой ответ