Помогите, пожалуйста, пункт 1, 5 и 6
Приложения:
Ответы на вопрос
Ответил TBouCoceD
1
Program printFibonacci;
var A: array [1..20] of integer;
i: byte;
begin
A[1]:=1;
A[2]:=1;
for i:=3 to 20 do
begin
A[i]:=A[i-1]+A[i-2];
writeln ('A[i]=' A[i]);
end;
end.
Но я не уверен(
var A: array [1..20] of integer;
i: byte;
begin
A[1]:=1;
A[2]:=1;
for i:=3 to 20 do
begin
A[i]:=A[i-1]+A[i-2];
writeln ('A[i]=' A[i]);
end;
end.
Но я не уверен(
sabaca30:
Спасибо
Новые вопросы