Kebalvokn
6 год назад
Составить алгоритм вычисления суммы S = 3+5+...+99
ОТВЕТЫ
Селезнёв
Jul 22, 2019
Var b,s:real;
begin
S := 3;
b := 0;
repeat
b := 2 + s + b;
s := s + 4;
until s=99;
writeln(b);
end.
begin
S := 3;
b := 0;
repeat
b := 2 + s + b;
s := s + 4;
until s=99;
writeln(b);
end.
240
Смежные вопросы:
