Program Fibonachi1 var I N Integer A Array1

Числа Фібоначчі Program Fibonachi_1; var I, N: Integer; A: Array[1. . 46] of integer; begin A[1]: =1; A[2]: =1; write ( ' N: = ' ) ; readln(N); for i: =3 to N do begin A[i]: =A[i-1]+A[i-2] ; writeln(A[i]) end; end.

Числа Фібоначчі Program Fibonachi_2; var I, N: Integer; X, Y: integer; begin write('N: '); readln(N); X: =1; Y: =1; for I: =3 to N do begin Y: =X+Y; X: =Y-X; writeln(Y); end.

Задача «Заєць на східцях» Program Hear_l; var N: integer; A: Array[1. . 46] of integer; Function F(x: Integer): integer; begin if A[x]=0 then A[x]: =F(x-1)+F(x-2)+F(x-3); F: =A[X]; end; begin write(N: '); readln(N); A[1]: =1; A[2]: =2; A[3]: =4; writeln(F(N)) end.

Задача «Заєць на східцях» Program Hear_2; var і, n: Integer; x, y, z: integer; begin write(' N: '); readln(n); X: =1; y: =2; z: =4; case n of 1: writeln(x); 2: writeln(y); 3: writeln(z); else begin for і : =4 to n do begin Z: =x+y+z; y: =z-x-y; x: =z-x-y end; writeln(z); end; End.