Составте программу нахождения суммы чисел 10+11+12+...+40

Ответы

Ответ дал: HRAshton
0
var
  a, b: integer;

begin
  for a := 10 to 40 do
    b := b + a;
  writeln(b);
end.
Похожие вопросы