pascal
Объяснение:
var
x, y, i: integer;
a: array[1..10] of integer;
begin
x := 1; y := 1; a[2] := 1;
for i := 3 to 10 do
y := x + y; x := y - x; a[i] := y;
end;
for i := 1 to 10 do Write(a[i], ', ');
end.
pascal
Объяснение:
var
x, y, i: integer;
a: array[1..10] of integer;
begin
x := 1; y := 1; a[2] := 1;
for i := 3 to 10 do
begin
y := x + y; x := y - x; a[i] := y;
end;
for i := 1 to 10 do Write(a[i], ', ');
end.