Решите задачку Delphi.

[Dogg]

Вывести на экран числа 1, 1, 2, 3, 5, 8, … (первые два числа – единицы, каждое последующее равно сумме двух предыдущих). Не использовать массив.

[rangerx]

Готов выполнить за 1 wmz, если что, отпишитесь мне на мыло: xranger@mail.ru

[Вадим Литвинов]

Код: Выделить всё

var
 i,num_cur,num_bef,num_befbef:integer;
begin
 num_bef:=1;
 num_befbef:=1;
 Memo1.Lines.Add("1");
 Memo1.Lines.Add("1");
 for i:=1 to 100 do
  begin
   num_cur:=num_bef+num_befbef;
   Memo1.Lines.Add(IntToStr(num_cur));
   num_befbef:=num_bef;
   num_bef:=num_cur;
  end;
end;

[Dogg]

Код: Выделить всё

var
 i,num_cur,num_bef,num_befbef:integer;
begin
 num_bef:=1;
 num_befbef:=1;
 Memo1.Lines.Add("1");
 Memo1.Lines.Add("1");
 for i:=1 to 100 do
  begin
   num_cur:=num_bef+num_befbef;
   Memo1.Lines.Add(IntToStr(num_cur));
   num_befbef:=num_bef;
   num_bef:=num_cur;
  end;
end;

Спс большое!!!