Question

Составить алгоритм вычисления суммы S=3+5+...+99

Answer 1

Var b,s:real;
begin
S := 3;
b := 0;
repeat
b := 2 + s + b;
s := s + 4;
until s=99;
writeln(b);
end.