While27. Дано целое число N (> 1), являющееся числом Фибоначчи: N = FK (определение чисел Фибоначчи дано в задании While24). Найти целое число K — порядковый номер числа Фибоначчи N.
>
Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | program While27; var N,F,F1,F2,K :Integer; begin Write('Введите число N: '); Readln(N); F1:=1; F2:=1; F:=0; K:=2; while F < N do begin inc(K,1); F:=F2+F1; F2:=F1; F1:=F; end; Writeln(k); end. |
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | #include int main(void) { int n; printf("N:"); scanf("%i",&n); int f1=1,f2=1,f=0,k=2; while (f<n){ ++k; f=f2+f1; f2=f1; f1=f; } printf("K:%i\n",k); return 0; } |
На нашем сайте Вы можете заказать решение любой задачи по программированию на любом языке программирования