Вычислить сумму ряда чисел 2+4+6...+50

Вычислить сумму ряда чисел 2+4+6...+50
Гость
Ответ(ы) на вопрос:
Гость
Program n1; var s,a:real; begins:=0; a:=0; while a<50 do begin a:=a+2; s:=s+a; end; writeln('сумма=',s); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы