Question

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

Answer 1

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.