Написать программу, которая запрашивает с клавиатуры целое число и сообщает «Четное» или «Нечетное» это число. Pascal ABC
Ответы
Ответ дал:
0
var
n:integer;
begin
Write('Введите число: ');
Readln(n);
if Odd(n) then Writeln('Нечетное')
else Writeln('Четное');
end.
n:integer;
begin
Write('Введите число: ');
Readln(n);
if Odd(n) then Writeln('Нечетное')
else Writeln('Четное');
end.
Вас заинтересует
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад