Определить,является ли число 5,введённое с клавиатуры,больше 0. Составить программу в...

Question

Определить,является ли число 5,введённое с клавиатуры,больше 0.
Составить программу в паскале.
Heeeeelllllpppppp

Answer 1

Можно вводить любое целое число, включая 5. Если потребуется вводить еще и дробные числа, то integer поменяй на real


Program Test;

Var num: integer;

Begin

Write('Введите число: ');
Readln(num);

Writeln();

if num > 0 then
Writeln('Число больше 0')

else if num = 0 then
Writeln('Число = 0')

else
Writeln('Число меньше 0');

End.