Kmamsmajfkf
25.01.2022 22:49

Определите сумму нечётных чисел. если введённое число будет чётным-цикл заканчивается.(решить используя оператор while) !

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
00Alcatraz00
09.10.2020 20:33

var

a,sum:Integer;

begin

readln(a);

sum:=0;

while a mod 2 <> 0 do

begin

sum:=sum+a;

readln(a);

end;

writeln('sum=',sum);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота