Программа на паскале для вычисления первых n чисел Фибоначчи
2 комментария:
Как вы все уже надоели со своими числами Фибоначчи! Неужели поиском сложно воспользоваться? Одно и то же каждый день...
алгоритм понимаю, а как написать не пойму
Как вы все уже надоели со своими числами Фибоначчи! Неужели поиском сложно воспользоваться? Одно и то же каждый день...
алгоритм понимаю, а как написать не пойму Ответы
Гость Var
n, a, b, c : integer;
begin
a := 1;
b := 1;
write('n? ');
readln(n);
write(a,' ',b,' ');
for var i:=3 to n do
begin
c := a + b;
write(c,' ');
a := b;
b := c;
end;
end.
Нет комментариев
Гость Program hhh54;
var i,n,x:longint;
a: array [1..100000] of longint;
begin
read (n);
a[1]:=1;
a[2]:=1;
for i:= 3 to n do
begin
a[i]:=a[i-1]+a[i-2];
write (a[i]);
end;
end.
Нет комментариев
Список предметов
