Ето прога на Pascal!(Будут вопросы пиши) program fibonachi;var f:array [0..1000] of longint;a,i,i2,i3:integer;beginwriteln ('Vvedit nomer potribnogo chisla');readln (a);f[1]:=1;f[0]:=1;if a<=1 thenwriteln(f[a]);if a=2 then writeln(3);if a>2 then beginfor i:=2 to a dobegini2:=i-1; i3:=i-2;f[i]:= f[i2]+f[i3];end;writeln (f[i]); end;readlnend. f10=89f25=121393f40 =165580141
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку