Сумма последовательности

@Mnogoznaal · Регистрация: 06.04.2020

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

Рассмотрим последовательность, образованную дробями 1/1, 2/1, 3/2, ..., в которой числитель (знаменатель) следующего члена последовательности получается сложением числителей (знаменателей) двух предыдущих членов. Первая дробь - это 1/1, вторая дробь - 2/1.

Верно ли, что сумма первых n членов этой последовательности больше числа A?

Формат ввода
На первой строке: натуральное число n, 2 ≤ n ≤ 90. На второй строке: вещественное число A, 0 ≤ A ≤ 107, число десятичных цифр - не более четырех.

Формат вывода
Выведите 'Yes', если ответ на вопрос задачи положительный. Выведите 'No', если ответ отрицательный.

Программа вылетает на 12 тесте

Вот код:

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
Var n,i:int64;
s:double;
a:real;
x,y:array[1..100] of int64;
z:array[1..100] of double;
Begin
Read(n,a);
x[1]:=1;
x[2]:=2;
y[1]:=1;
y[2]:=1;
s:=3;
Readln;
If n>2 then begin
For i:=3 to n do begin
x[i]:=x[i-1]+x[i-2];
y[i]:=y[i-1]+y[i-2];
z[i]:=x[i]/y[i];
s:=s+z[i];
end;
end;
if s>a then writeln('Yes');
if s<=a then writeln('No');
end.

Где ошибка?

ФедосеевПавел · 08.04.2020, 22:14

Я бы обошёлся без массива - всё равно используются лишь 4 переменные.
Попробуйте
1 заменить int64 на uint64, хотя (я проверил) и int64 вполне достаточно для вычисления 91 и 92 числа Фибоначчи.
2 заменить real на double (хотя это и сам компилятор делает)
3. уберите лишний Readln - строка 13
4. строки 22-23 лучше

Pascal
1
2
3
4
if s>a then
  writeln('Yes')
else
  writeln('No');

5. ещё можно заменить uint64 на Comp, но этот тип убрали из x64.

@Mnogoznaal · 08.04.2020, 22:33 **[ТС]**

Спасибо большое, но программа выдает ошибку на 12 тесте

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
Var n,i:int64;
s,a:double;
x,y:array[1..100] of uint64;
z:array[1..100] of double;
Begin
Read(n,a);
x[1]:=1;
x[2]:=2;
y[1]:=1;
y[2]:=1;
s:=3;
If n>2 then begin
For i:=3 to n do begin
x[i]:=x[i-1]+x[i-2];
y[i]:=y[i-1]+y[i-2];
z[i]:=x[i]/y[i];
s:=s+z[i];
end;
end;
if s>a then
  writeln('Yes')
else
  writeln('No');
end.

ФедосеевПавел · 08.04.2020, 22:39

Я бы решал так

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
program Fibonacci;
 
var
  F1, F2, F3: uint64;
  A, s: double;
  n: integer;
begin
  readln(n);
  readln(A);
 
  F1 := 1;
  F2 := 1;
  F3 := 2;
  s  := 1;
  for n := 2 to n do
  begin
    s := s + F3 / F2;
 
    F1 := F2;
    F2 := F3;
    F3 := F3 + F1;
  end;
 
  if (s > A) then
    writeln('Yes')
  else
    writeln('No');
end.

Но проверить в системе не могу.

Добавлено через 1 минуту
Ошибка может быть связана с тем, что слова 'Yes' и 'No' не полностью на латинице - один раз с таким встречался - пока не скопировал слова с сайта, не мог сдать.

Добавлено через 2 минуты
Больше идей нет.
Иногда на проверочных сайтах бывают подсказки, обсуждения - там намекают на ошибку (точные решения удаляют).

Новые блоги и статьи Все статьи Все блоги /
Программный отбор элементов справочника Номенклатура по группе 1С Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор элементов справочника Сотрудники по перечислениям 1С Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .