Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/15: Рейтинг темы: голосов - 15, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 05.12.2019
Сообщений: 1

Вычислить суммы N первых натуральных чисел, кратных числу b

05.12.2019, 16:29. Показов 3013. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Составить программу вычисления суммы N первых натуральных чисел, кратных числу b, c выводом промежуточных результатов.(N и b вводятся пользователем).
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
05.12.2019, 16:29
Ответы с готовыми решениями:

Среди N первых натуральных чисел подсчитать кол-во чисел, кратных 5 и 3 (Массив)
Ребят помогите пожалуйста очень надо буду благодарен. Среди N первых натуральных чисел подсчитать кол-во чисел, кратных 5 и 3

Среди N первых натуральных чисел подсчитать количество чисел, кратных 5 и 3
Среди N первых натуральных чисел подсчитать количество чисел, кратных 5 и 3.

Среди N первых натуральных чисел подсчитать количество чисел, кратных 5 и 3
Среди N первых натуральных чисел подсчитать кол-во чисел, кратных 5 и 3.

1
Модератор
10451 / 5741 / 3409
Регистрация: 17.08.2012
Сообщений: 17,474
05.12.2019, 17:54
Вообще говоря, это будет сумма N членов арифметической прогрессии с первым членом и разностью прогрессии, равными b. Промежуточных результатов никаких не требуется, сумма вычисляется одной формулой:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  n, b: integer;
 
begin
  write('N = ');
  readln(n);
  write('b = ');
  readln(b);
  writeln('Сумма = ', b * (n + 1) * n div 2);
  readln
end.
Но, скорее всего, эта програма для сдачи не подойдёт. Судя по всему, от Вас ждут идиотского решения с циклами. Вот оно:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  i, n, a, b, s: integer;
 
begin
  write('N = ');
  readln(n);
  write('b = ');
  readln(b);
  a := 0;
  s := 0;
  for i := 1 to n do
    begin
      a := a + b;
      s := s + a;
      writeln('Шаг: ', i, ', число = ', a, ', сумма = ', s)
    end;
  readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
05.12.2019, 17:54
Помогаю со студенческими работами здесь

Определить количество элементов последовательности натуральных чисел, кратных числу М
Помогите плс! , вот задачи: (Операторы цикла, одномерные массивы, двумерные массивы, символы и строки, файлы) 3. Определить количество...

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

Найти произведение первых k натуральных чисел, кратных трём
решить, используя оператор безусловного перехода и 4 безусловных функции: 1)Break 2)Continue 3)Exit 4)Halt

Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N.
Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N.

Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N.
Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N.


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru