Напишите мне задачи на Turbo Pascal

[sufik]

заранее спасибо))

[Hacker19_90]

не дорого! ПИШИ
ася под аватаром

[sufik]

ВСЕ ЗДЕСЬ)))

[Mad_Cat]

3)

var a,b,n,h:integer;
begin
readln(h);
a:=1;
b:=1;
n:=2;
while a<=h do begin
a:=a+b;
b:=a-b;
n:=n+1;
end;
writeln(n);
readln;
end.