Очень нужно срочно!!!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.
Не нашли ответ?
Похожие вопросы