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