СРОЧНО.Решите пожалуйста задачу по паскаль (смотрите скрин)
СРОЧНО.Решите пожалуйста задачу по паскаль (смотрите скрин)
Гость
Ответ(ы) на вопрос:
Гость Var
n, a, b, i, j: int64;
ar: array[1..10000]of biginteger;
begin
read(n, a, b);
ar[1] := a;
ar[2] := b;
for i := 3 to n do
begin
for j := 1 to i - 1 do
begin
ar[i] := ar[i] + ar[j];
end;
ar[i] := ar[i] + i;
end;
for i := n downto 1 do write(ar[i], );
end.
Не нашли ответ?
Похожие вопросы