1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 var

  CyberForum.ru > > Pascal ( ) > Turbo Pascal , N E-mail ?
24. 1202 . ( ) : ( ), , , ? , , , 1, 1, 2, 3, 5, 8, 13, 21, 37, , , N.
Turbo Pascal. Turbo Pascal. , . pascal Turbo Pascal 25. , 42*4*, , , 72.. pascal Turbo Pascal 8. .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 var   i , n : Longint ; { } function Fib ( X : Byte ) : Longint ; var   s , n1 , n2 : Longint ; begin   fib := 1 ;   if x< 3 then     exit;   n1 := 1 ; n2 := 1 ;   while x> 2 do   begin     dec ( x ) ;     s := n2 + n1;     webrtc n1 := n2;     n2 := s;   end ;   fib := S; end ; { } begin   readln ( n ) ;   if n< = 1 then     exit;   i := 1 ;   repeat     write ( fib ( i ) , ' ' ) ;     inc ( i )   until     fib ( i ) > = n; end . 1
  : 17.10.2009 : 5,816 : 7664 ( 2558 )
1202 . ( ) : ( ), , , ? , , , 1, 1, 2, 3, 5, 8, 13, 21, 37, ... ... :
Delphi , , : 1.3. input.txt output.txt 2 64 Wbgury Turbo Pascal , , N. , , N. , ( 1, , ). , 28 ... vadimkop93 Pascal ( ) , , d . a1=-d, ai=ai-1^2+5 webrtc i=2,3... a1=-d a2=(-d)^2+5 a3=((-d)^2+5)^2+5 ... IvanA Pascal ( ) , , . , , , , , . . PARNISH Pascal ( ) , , N 1202 . ( ) : ( ), , , ? ... Unpric