Составить программу для решения задачи: задайте целое число ; определите, является ли оно нечетным.
Ответы
Ответ дал:
0
Program Free_Pascal;
var i:integer;
begin
readln(i);
if (i mod 10 = 1) then writeln('Нечетное');
readkey;
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад