Очень нужно срочно!!!Pascal ABC!!вводится числа до той поры,пока не будет введено число 1.Определить четность каждого из них.

Очень нужно срочно!!!Pascal ABC!!вводится числа до той поры,пока не будет введено число 1.Определить четность каждого из них.
Гость
Ответ(ы) на вопрос:
Гость
var   a: integer; begin   repeat     write('Введите число ');     readln(a);     if a mod 2 = 0 then writeln(a, ' - четное')     else writeln(a, ' - нечетное');   until a = 1; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы