По разделам



Задача While 24


Дано целое число N (> 1). Последовательность чисел Фибоначчи FK
определяется следующим образом:
F1 = 1, F2 = 1, FK = FK−2 + FK−1, K = 3, 4, . . . .
Проверить, является ли число N числом Фибоначчи. Если является, то
вывести TRUE, если нет — вывести FALSE.

Код (C/C++)

#include <stdio.h>
int main(void)
{
   int a,b;
   printf("A:");
   scanf("%i",&a);
 
   printf("B:");
   scanf("%i",&b);
   while ((a!=0)&(b!=0)){
       if (a>b) a=a%b;
       else b=b%a;
   }
   printf("%i\n",a+b);
   return 0;
}

Код (Python)

import random

N = random.randrange(1,100000)
N = 4181
print("N = ",N)
F1 = F2 = 1
print(F1,end="; ")
print(F2,end="; ")

while F2 < N:
    F1, F2 = F2, F1+F2
    print(F2,end="; ")
print()
if F2 == N:
    print("TRUE")
else:
    print("FALSE")
									

Код (Pascal)

program While24;
var
  N,F,F1,F2 :Integer;
begin
  Write('Введите число N: ');
  Readln(N);
  F1:=1;
  F2:=1;
  F:=0;
  while F < N do
   begin
    F:=F2+F1;
    F2:=F1;
    F1:=F;
   end;
  Writeln(F=N);
end.
									




While. Абрамян
While 1 Просмотров: 20
While 2 Просмотров: 15
While 3 Просмотров: 12
While 4 Просмотров: 20
While 5 Просмотров: 14
While 6 Просмотров: 14
While 7 Просмотров: 10
While 8 Просмотров: 9
While 9 Просмотров: 12
While 10 Просмотров: 13
While 11 Просмотров: 16
While 12 Просмотров: 43
While 13 Просмотров: 9
While 14 Просмотров: 14
While 15 Просмотров: 15
While 16 Просмотров: 16
While 17 Просмотров: 12
While 18 Просмотров: 15
While 19 Просмотров: 12
While 20 Просмотров: 22
While 21 Просмотров: 17
While 22 Просмотров: 15
While 23 Просмотров: 17
While 24 Просмотров: 11
While 25 Просмотров: 12
While 26 Просмотров: 9
While 27 Просмотров: 10
While 28 Просмотров: 11
While 29 Просмотров: 11
While 30 Просмотров: 10

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться