Составте программу, определяющую,является ли введеное число с клавиатуры целое число четным
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
i : Integer;
begin
Write('Введите число: ');
Readln(i);
if i mod 2 = 0 then
Writeln('Четное')
else
Writeln('Нечетное');
Readln;
end.