Задание:
Составьте программу, определяющую, является ли последняя цифра введенного целого числа нечетным числом. Пример ввода: 1245Пример вывода: 5- нечетное число
Решение:
Program pr; uses crt; Var a, x: integer; BeginWriteln ('Vvedite chislo'); readln (a); x: =a mod 10; if x mod 2=0 then Writeln ('Chotnoe') else Writeln ('ne chotnoe'); readln; end.
Знаете другой ответ?