Определить, сколько из данных чисел входит во множество чисел Фибоначчи

@Dan260682 · Регистрация: 15.05.2014

Author24 — интернет-сервис помощи студентам

Приветствую форумчане!Помогите пожалуйста решить задачку!
Условие: Дано 100 целых чисел от 1 до 1000 Определить сколько из них входит во множество чисел фибоначчи.
Буду очень признателен!

Kodzaev · 15.05.2014, 22:33

Числа Фибоначчи выводятся ярко-зеленым цветом, остальные - серым (для удобства)

Pascal
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
31
uses
  Crt;
 
function IsFibonacci(x: longint): boolean;
begin
  IsFibonacci := (Frac(Sqrt(5 * Sqr(x) + 4)) = 0) or (Frac(Sqrt(5 * Sqr(x) - 4)) = 0);
end;
 
var
  i, n, k: integer;
 
begin
  k := 0;
  Randomize;
  ClrScr;
  for i := 1 to 100 do
  begin
    n := Random(1000) + 1;
    if IsFibonacci(n) then
    begin
      k := k + 1;
      TextColor(LightGreen)
    end
    else
      TextColor(LightGray);
    Write(n:5);
  end;
  WriteLn;
  WriteLn('Количество чисел Фибоначчи = ', k);
  ReadLn
end.

Если это не нужно, то просто:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function IsFibonacci(x: longint): boolean;
begin
  IsFibonacci := (Frac(Sqrt(5 * Sqr(x) + 4)) = 0) or (Frac(Sqrt(5 * Sqr(x) - 4)) = 0);
end;
 
var
  i, n, k: integer;
 
begin
  k := 0;
  Randomize;
  for i := 1 to 100 do
  begin
    n := Random(1000) + 1;
    if IsFibonacci(n) then
      k := k + 1;
    Write(n:5);
  end;
  WriteLn;
  WriteLn('Количество чисел Фибоначчи = ', k);
  ReadLn
end.

@Dan260682 · 16.05.2014, 09:20 **[ТС]**

Огромное спасибо!Очень помогли Буду разбираться что и как!

Новые блоги и статьи Все статьи Все блоги /
Простая нейросеть на КуМир: Создание и обучение EggHead 16.03.2025 Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .	Исполнитель Кузнечик в КуМир: Решение задач EggHead 16.03.2025 Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .	Исполнитель Водолей в КуМир: Решение задач EggHead 16.03.2025 Разработка алгоритмического мышления — одна из ключевых задач для начинающих программистов, и система КуМир предлагает отличный способ погрузиться в этот процесс. Среди множества исполнителей в этой. . .	Исполнитель Чертежник в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы можете рисовать на бесконечной координатной плоскости, перемещая точку, которая оставляет след. По вашей команде она может поднять перо и двигаться, не оставляя следа, или. . .	Исполнитель Робот в КуМир: Решение задач EggHead 16.03.2025 КуМир (Комплект Учебных МИРов) — это учебная среда программирования, разработанная специально для обучения базовым концепциям алгоритмизации. Её главная фишка — использование русскоязычного. . .
Исполнитель Черепаха в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы впервые учитесь программировать, а перед вами стоит задача заставить маленькую виртуальную черепашку рисовать на экране. Звучит забавно? Эта идея зародилась ещё в 1967 году, когда. . .	Конвейеры данных с Apache Kafka Javaican 16.03.2025 В мире, где данные стали новой нефтью, Apache Kafka зарекомендовал себя как мощный инструмент для построения надежных и масштабируемых конвейеров данных. Созданный изначально командой LinkedIn в 2011. . .	Deno против Node.js: Будущее JavaScript рантайма run.dev 16.03.2025 За последнее десятилетие Node. js стал абсолютным лидером среди JavaScript-рантаймов и фактическим стандартом для серверной разработки на JavaScript. Но в 2018 году тот же разработчик, который создал. . .	SwiftUI или UIKit - что выбрать для нового приложения iOS? mobDevWorks 16.03.2025 Когда Apple представила SwiftUI на WWDC 2019, многим показалось, что дни UIKit сочтены. Новый декларативный фреймворк предлагал радикально иной подход к разработке интерфейсов. Вместо кропотливого. . .	Docker: Руководство для начинающих по созданию первого приложения Mr. Docker 16.03.2025 Docker — это платформа, которая упаковывает ваше приложение и все его зависимости в стандартизированные блоки, называемые контейнерами. Эти контейнеры изолированы друг от друга и от основной системы,. . .

@Dan260682 0 / 0 / 0 Регистрация: 15.05.2014 Сообщений: 12
		1
	Определить, сколько из данных чисел входит во множество чисел Фибоначчи 15.05.2014, 21:58. Показов 1250. Ответов 2 Метки нет (Все метки) Приветствую форумчане!Помогите пожалуйста решить задачку! Условие: Дано 100 целых чисел от 1 до 1000 Определить сколько из них входит во множество чисел фибоначчи. Буду очень признателен! 0

@Dan260682 0 / 0 / 0 Регистрация: 15.05.2014 Сообщений: 12
	16.05.2014, 09:20 [ТС]	3
	Огромное спасибо!Очень помогли Буду разбираться что и как! 0

Опции темы

Определить, сколько из данных чисел входит во множество чисел Фибоначчи

Решение