Question

Составить программу нахождение суммы ряда S=2+5+8+...98 в паскале

Answer 1

var s,i:integer;
begin
i:=2;
while i<=98 do begin
s+=i;
i+=3;
end;
writeln(s);
end.

Answer 2

Спасибо)