Дано целое число. Требуется вывести его строку-описание вида «negative even number» (отрицательное четное число), «zero number» (нулевое число), «positive odd number» (положительное нечетное число) и т. д. НА ПАСКАЛЕ!!!
Дано целое число. Требуется вывести его строку-описание вида «negative even number» (отрицательное четное число), «zero number» (нулевое число), «positive odd number» (положительное нечетное число) и т. д. НА ПАСКАЛЕ!!!
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program DescribeNumber;
var
num: Integer;
begin
write('Enter a number: ');
readln(num);
if num > 0 then
begin
if num mod 2 = 0 then
writeln('Positive even number')
else
writeln('Positive odd number');
end
else if num < 0 then
begin
if num mod 2 = 0 then
writeln('Negative even number')
else
writeln('Negative odd number');
end
else
writeln('Zero number');
end.