0 / 0 / 1
Регистрация: 26.06.2013
Сообщений: 24

В последовательности каждый член, начиная с четвертого, равен последней цифре суммы трех предыдущих. Найти n- ый элемент

26.06.2013, 13:43. Показов 4498. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
2) В последовательности (1 2 3 , , , ..., n) a каждый член, начиная с четвертого, равен последней цифре суммы трех предыдущих. Найти n-ый элемент последовательности.
Детали реализации: при реализации решения массивы, множества и строки использовать нельзя!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.06.2013, 13:43
Ответы с готовыми решениями:

В последовательности a1.a2.a3.an каждый член,начиная с четвертого равен последней цифре суммы трех предыдущих.
Со слов автора темы исправил условие в последовательности a1.a2.a3.an каждый член,начиная с четвертого равен последней цифре суммы...

Определите n-й член последовательности, в которой каждый следующий член равен сумме квадратов всех предыдущих
Зачет по информатике, помогите, кто что знает? "Определите n-й член последовательности, в которой каждый следующий член равен сумме...

Найти n-й член последовательности, где каждый следующий равен сумме обратных величин двух предыдущих
Найти n-й член последовательности,где каждый следующий член равен сумме обратных величин двух предыдущих членов...

7
 Аватар для Kordn
158 / 137 / 106
Регистрация: 18.05.2013
Сообщений: 289
26.06.2013, 16:52
Цитата Сообщение от Magnificent Посмотреть сообщение
2) В последовательности (1 2 3 , , , ..., n) a каждый член, начиная с четвертого, равен последней цифре суммы трех предыдущих. Найти n-ый элемент последовательности.
Детали реализации: при реализации решения массивы, множества и строки использовать нельзя!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  n: integer;
 
function Seq(n: integer): integer;
begin
  if n < 4 then result := n
  else result := (Seq(n - 3) + Seq(n - 2) + Seq(n - 1)) mod 10;
end;
 
begin
  write('Введите номер элемента последовательности: ');
  readln(n);
  writeln('Элемент под номером ', n, ': ', Seq(n));
end.
1
0 / 0 / 1
Регистрация: 26.06.2013
Сообщений: 24
29.06.2013, 11:14  [ТС]
вторая программа некорректно работает. т.е. у Вас не учтено, что четвертый член последовательности зависит от трех предыдущих, т.е. нужен еще ввод как минимум трех первых членов последовательности (в задании нигде не сказано что они равны 1, 2, 3) и дальнейший расчет на основании их суммы. Заранее спасибо!

Добавлено через 13 минут
моё сообщение было отредактированно, там должно было быть, a1,a2,a3....a(n)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33411 / 21521 / 8236
Регистрация: 22.10.2011
Сообщений: 36,922
Записей в блоге: 12
29.06.2013, 14:17
@Magnificent, значит, вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  a1, a2, a3 : Integer;
  n: integer;
 
function Seq(n: integer): integer;
begin
  case n of
    1 : result := a1;
    2 : result := a2;
    3 : result := a3;
    else
      result := (Seq(n - 3) + Seq(n - 2) + Seq(n - 1)) mod 10;
   end;
end;
 
begin
  write('Введите первые три элемента:'); 
  readln(a1, a2, a3);
  write('Введите номер элемента последовательности: ');
  readln(n);
  writeln('Элемент под номером ', n, ': ', Seq(n));
end.
1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
29.06.2013, 16:08
Вроде так написано....
Цитата Сообщение от Magnificent Посмотреть сообщение
a каждый член, начиная с четвертого, равен последней цифре суммы трех предыдущих.
0
 Аватар для Erea
130 / 54 / 27
Регистрация: 13.03.2013
Сообщений: 162
29.06.2013, 16:21
Возможно, первые три члена будут состоять не из одной цифры. Тогда можно на всякий случай сделать так:
Pascal
1
while n>=10 do n mod 10;
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33411 / 21521 / 8236
Регистрация: 22.10.2011
Сообщений: 36,922
Записей в блоге: 12
29.06.2013, 17:28
Цитата Сообщение от Erea Посмотреть сообщение
Возможно, первые три члена будут состоять не из одной цифры
И что? Хоть из 8 цифр... Меня не интересует, из скольки цифр состоят первые 3 члена, меня интересует последняя цифра их суммы...
Цитата Сообщение от Erea Посмотреть сообщение
Тогда можно на всякий случай сделать так
При чем тут n вообще? Если я заказывал 25-ый элемент последовательности, не надо пытаться подсунуть мне 5-ый...
0
 Аватар для Erea
130 / 54 / 27
Регистрация: 13.03.2013
Сообщений: 162
29.06.2013, 18:34
Жара, торможу, почему-то переклинило, что мод 10 отрежет только первую цифру. (Да и под n имела в виду результат функции)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
29.06.2013, 18:34
Помогаю со студенческими работами здесь

Вычислить N член последовательности, начинающейся с единицы, в которой каждый следующий член равен сумме квадратов всех предыдущих
Напишите программу вычисления N члена последовательности, начинающейся с единицы, в которой каждый следующий член равен сумме квадратов...

Вычисление N-го члена последовательности, в которой каждый следующий член равен сумме квадратов всех предыдущих
Всем привет, у меня такая задача : Напишите программу вычисления N-го члена последовательности, начинающейся с единицы, в которой...

Каждый последующий элемент, начиная с третьего, должен быть равен произведению двух предыдущих элементов массива
Напишите программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего, был равен...

Сформировать массив так, чтобы каждый элемент, начиная с третьего, был равен произведеннию двух предыдущих
uses crt; var a:array of integer; i,n:integer; begin writeln (' Введите длину массива'); readln(n); writeln (' введите...

Сформировать массив так, чтобы каждый последующий элемент, начиная с третьего, был равен разности двух предыдущих
Напишите пожалуйста программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

Новые блоги и статьи
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru