Предмет: Информатика,
автор: TanyaDav
Составить программу для решения задачи: задайте целое число ; определите, является ли оно нечетным.
Ответы
Автор ответа:
0
Program Free_Pascal;
var i:integer;
begin
readln(i);
if (i mod 10 = 1) then writeln('Нечетное');
readkey;
end.
Интересные вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Химия,
автор: malika1269
Предмет: Математика,
автор: jeka22858
Предмет: Алгебра,
автор: ruskiurep
Предмет: Химия,
автор: ариночка999