Все числа фибоначчи выписали подряд 1123581321345589... по данному числу n найдите в этом ряду n-ую цифру
Var a,b,c,d,n:integer;begin
writeln(введи номер цифры);
readln(d);
b:=0;
a:=1;
n:=0;
if d<0 then while d<0 do begin
writeln(введено неверное число ,попробуйте ещё раз);
readln(d);
end;
while c<2147483646 do begin
c:=a+b;
b:=a;
a:=c;
n:=n+1;
if (n=d) then c:=2147483647;if (n=d) then d:=b;
end;
writeln(это число ,b);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
