For33. Дано целое число N (> 1). Последовательность чисел Фибоначчи FK (целого типа) определяется следующим образом: F1 = 1, F2 = 1, FK = FK-2 + FK-1, K = 3, 4, … . Вывести элементы F1, F2, …, FN.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | program For33; var Fk,Fk1,Fk2 :Real; K, i :Integer; begin Write('Введите K: '); Readln(K); Writeln('Значения функции:'); Writeln('F(1)=1'); Writeln('F(2)=1'); Fk1:=1; Fk2:=1; For i:=3 to K do begin Fk:=Fk2+Fk1; Writeln('F(',i,')=',Fk); Fk2:=Fk1; Fk1:=Fk; end; end. |
>
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | #include int main(void) { int k; printf("K:"); scanf ("%i", &k); int f1=1,f2=1; printf("F(1)=%i\n",f1); printf("F(2)=%i\n",f2); int i; for (i =3; i<=k; ++i){ f1=f1+f2; f2=f1-f2; printf("F(%i)=%i \n",i,f1); } return 0; } |
>
Решение C++
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | # include # include # include using namespace std; int main () { SetConsoleCP(1251); SetConsoleOutputCP(1251); int N; int a1=1, a2 = 1; int a; cout << "Введите N: "; cin >> N; cout << "Последовательность Фибоначи: "; cout << a1 << " " << a2 << " "; for (int i= 3; i<=N; ++i) { a = a1 + a2; a1 = a2; a2 = a; cout << a << " "; } cout << endl; system ("pause"); return 0; } |
int a,b=1,c=1;
for (int i = 2; i <=15; i++)
{
a = b + c;
Console.WriteLine($"{i} {a}");
b = c;
c = a;
}
кал сайт реклама непристойная
дебилы!!!!
Сейчас реламы нету
ну так установи расширение дура