Даю 42балла. номер 3.программа ABCpascal.Заранее спасибо
Даю 42балла.
номер 3.
программа ABCpascal.
Заранее спасибо
Гость
Ответ(ы) на вопрос:
Гостьvar a: array[1..10] of integer; i:integer;
begin
a[1] := 1;
a[2] := 1;
for i:=3 to 10 do
begin
a[i]:= a[i-1] + a[i-2];
end;
for i:=1 to 10 do
writeln(a[i]);
end.
Не нашли ответ?
Похожие вопросы