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

Написать программу в Паскале (ВВОДИТЬ ЧИСЛА ДО ТЕХ ПОР ПОКА ОЧЕРЕДНОЕ НЕ ОКАЖЕТСЯ РАВНО 0,НАЙТИ СУММУ ЧИСЕЛ С ЧЕТНЫМ ПОРЯДКОВЫМ НОМЕРОМ)
Гость
Ответ(ы) на вопрос:
Гость
var a,i,s:integer; begin write('a='); readln(a); s:=0;i:=1; while a<>0 do  begin  if i mod 2 =0 then s:=s+a;  i:=i+1;  write('a='); readln(a); end; writeln('s=',s); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы