Написать программу в Паскале (ВВОДИТЬ ЧИСЛА ДО ТЕХ ПОР ПОКА ОЧЕРЕДНОЕ НЕ ОКАЖЕТСЯ РАВНО 0,НАЙТИ СУММУ ЧИСЕЛ С ЧЕТНЫМ ПОРЯДКОВЫМ НОМЕРОМ)

Ответы (1)

Чайна 27.10.2024 4

Var a,i,s:integer;
begin
write('a='); readln(a);
s:=0;i:=1;
while a0 do
begin
if i mod 2 =0 then s:=s+a;
i:=i+1;
write('a='); readln(a);
end;
writeln('s=',s);
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ