.


- 4


end;

Function fib(n : integer) : integer;

var

f, f1, f2, i : integer;

begin

f1 := 1; f := 0;

for i := 1 to n do

begin

f2 := f1; f1 := f;

f := f1+f2;

end;

fib := f

end;

:

Program Problem1;

uses WinCrt;

var

i, n : integer;

{----------------------------------------------------------------------------------------}

Function fib(n : integer) : integer;

var

f, f1, f2, i : integer;

begin

f1 := 1; f := 0;

for i := 1 to n do

begin

f2 := f1; f1 := f;

f := f1 + f2;

end;

fib := f

end;

{----------------------------------------------------------------------------------------}

begin

write(' n '); readln(n);

writeln(' ');

for i := 1 to n do write(fib(i), ' ');

writeln

end.

2.

(an) :

-
1.

. , . :

Function

Sum(a : integer) : integer;

var

s : integer;

begin

s := 0;

repeat

s := s + a mod 10;

a := a div 10

until a = 0;

Sum := s

end;

- , :

Function Succ(n : integer) : integer;

var

a, i : integer;

begin

a := 7;

for i := 2 to n do

a := Sum(a*a) + 1;

Succ := a

end;

: