Последовательность Фибоначчи определяется следующим образом: первые два члена последовательности равны 1, а каждый следующий равен сумме двух предыдущих. Т.е. числами Фибоначчи являются 1,1,2,3,5,8,13,... Дана последовательность целых чисел ai. Построить новую последовательность, содержащую числа Фибоначчи из данной последовательности.
Вход
В каждой строке входа дано по одному элементу исходной последовательности. Признак конца последовательности - 0.
Выход
В каждую строку выхода вывести по одному элементу результирующей последовательности. Заключительный нуль в результат не выводить.
Пример
Вход:
6
10
55
610
544
4181
13
0
Выход:
55
610
4181
13

Я её тебе даже улучшил, необязательно вводить 0, для завершения, хотя хуже не будет.
Для установки Проги брось на форму Memo и кнопку на которую напиши

Код

var  Form1: TForm1;  a:array of integer;  i,p,p0,p1,max:integer;  s1,memo:string;

+

Код

procedure TForm1.BitBtn1Click(Sender: TObject); begin  SetLength(A,memo1.Lines.Count);  memo:=memo1.Text;  i:=0;  p:=pos(#$D+#$A,memo);  while p<>0 do    begin      s1:=copy(memo,1,p-1);      delete(memo,1,p+1);      a[i]:=StrToInt(s1);      i:=i+1;      p:=pos(#$D+#$A,memo);    end;  if memo<>'' then a[i]:=StrToInt(memo);  max:=memo1.Lines.Count-1;  memo1.Clear;  for i:=0 to max do    begin      p0:=1;      p1:=1;      repeat        p:=p0+p1;        p0:=p1;        p1:=p;        if a[i]=p then          memo1.Lines.Add(IntToStr(a[i]));      until a[i]<=p;    end; end;

Это сообщение отредактировал(а) Zero - 25.12.2004, 18:56