Информатика, опубликовано 2018-08-22 22:35:40 by Гость
Написать программу в Паскале (ВВОДИТЬ ЧИСЛА ДО ТЕХ ПОР ПОКА ОЧЕРЕДНОЕ НЕ ОКАЖЕТСЯ РАВНО 0,НАЙТИ СУММУ ЧИСЕЛ С ЧЕТНЫМ ПОРЯДКОВЫМ НОМЕРОМ)
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на