Question

надо срочно решить задачу

Answer 1

Ответ:

х

1

2

3

она будет повторятся до макс числа N

Answer 2

Ответ:

7

Объяснение:

var

 x, n : integer;

begin

 x := 1;

 for n := 1 to 3 do begin

   x := x + n;

   writeln(n, ' - ', x);

 end;

 writeln('Ответ=', x);

end.