var a: array [1..20] of integer; i: integer; begin a[1]:=1; a[2]:=1; writeln(a[1]); writeln(a[2]); for i:=3 to 20 do begin a[i]:=a[i-1]+a[i-2]; write(a[i]); end; readln end.
Яндекс