Программа проверяет на четность введенное с клавиатуры целое число.
Решение:
1
2 3 4 5 6 7 8 9 10 |
program choice_1;
uses crt; var a: integer; begin clrscr; write(‘Введите число > ‘); readln(a); if a mod 2 <> 0 then write(a, ‘ нечетное число’) else write(a, ‘ — четное число’); readkey; end. |