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

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

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

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

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.500 из 5


СОХРАНИТЬ ССЫЛКУ