Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Последовательность Фибоначчи определяется так:
φ0=0, φ1=1, ..., φn=φn-1+φn-2.
По данному числу n определите n-е число Фибоначчи φn.
(паскаль)

Ответ оставил Гость

Var 
i,n,a,b,c:int64;
Begin 
a:=0;  b:=1; 
Write(Введите число n: );  Readln(n); 
Write(Число фибоначи под номером ,n,: ); 
Case n of 
  0:write(0); 
  1:write(1)  else Begin 
     for i := 2 to n do  Begin 
       c:=a+b; 
       a:=b; 
       b:=c; 
    End; 
    write(c); 
   End; 
 End;
End.