Решить задание и получить число 33 - Turbo Pascal

Формулировка задачи:

помогите плиз

Код к задаче: «Решить задание и получить число 33 - Turbo Pascal»

textual
uses crt;
var
i:integer;
a:array [1..33] of integer;
begin
  A[1]:=1;
  A[2]:=1;
  Textcolor (10);
   For i:=3 to 33 do
   Begin
       A[i]:=A[i-1]+A[i-2];
   End;
       write('A[33] = ',A[i]:3);
    readln;
end.

5   голосов, оценка 3.400 из 5


СОХРАНИТЬ ССЫЛКУ