ПАСКАЛЬ Дано число. Дать характеристику числа: положительное, отрицательное; чётное, нечётное; целое, не целое.

Предыдущий
вопрос Следующий
вопрос

Для определения характеристики числа в Паскале можно использовать следующий код:

program CharNumber;
var
num: integer;
begin
write('Введите число: ');
readln(num);
if num > 0 then
writeln('Число положительное')
else if num < 0 then
writeln('Число отрицательное')
else
writeln('Число ноль');
if num mod 2 = 0 then
writeln('Число четное')
else
writeln('Число нечетное');
if frac(num) = 0 then
writeln('Число целое')
else
writeln('Число не целое');
end.

Этот код сначала запрашивает у пользователя ввод числа, затем определяет его характеристику: положительное или отрицательное, четное или нечетное, целое или не целое.