Проверить, делится ли заданное число Фибоначчи на 7 без остатка - Free Pascal

Формулировка задачи:

Входные данные: стандартный поток имеет числа, которые есть номерами чисел последовательности Фибоначчи. Числа записаны через пробел. Выходные данные: в стандартный поток вывести 1 - если даное число из последовательности Фибоначчи делится на 7 без остатка, 0 - в противном случае. Заносить в поток числа без пробелов. Пример: Входные данные: 8 5 Выходные данные: 10

Решение задачи: «Проверить, делится ли заданное число Фибоначчи на 7 без остатка»

textual
                            Листинг программы 
                        
 
                        
                          
                    
program Fibonacci;
 
var
  Fprev, Fcurr: integer;
  i, N: integer;
begin
  N := 20;
  {1. Полноценное вычисление чисел Фибоначчи}
  Fprev := 0;
  Fcurr := 1;
  for i := 1 to N do
  begin
    Write(Fcurr mod 7);
    Fcurr := Fcurr + Fprev;
    Fprev := Fcurr - Fprev;
  end;
  writeln;
  {2. Модульное вычисление чисел Фибоначчи}
  Fprev := 0;
  Fcurr := 1;
  for i := 1 to N do
  begin
    Write(Fcurr mod 7);
    Fcurr := Fcurr + Fprev;
    Fprev := Fcurr - Fprev;
    Fcurr := Fcurr mod 7;
    Fprev := Fprev mod 7;
  end;
  writeln;
end.

Оцени полезность:

6 голосов , оценка 3.5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы