Информатика, опубликовано 2018-08-22 23:01:50 by Гость
Все числа фибоначчи выписали подряд 1123581321345589... по данному числу n найдите в этом ряду n-ую цифру
Ответ оставил Гость
Var a,b,c,d,n:integer;begin
writeln(введи номер цифры);
readln(d);
b:=0;
a:=1;
n:=0;
if d writeln(введено неверное число ,попробуйте ещё раз);
readln(d);
end;
while c 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на