Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
QuestDungeon
0 / 0 / 0
Регистрация: 22.11.2017
Сообщений: 4
#1

Вычислить сумму чисел, кратных n на интервале, не используя операторы цикла

07.12.2017, 15:15. Просмотров 105. Ответов 1
Метки нет (Все метки)

Создать програму для вичисления суми всех натуральних чисел кратних n в границах от 2К до 3К, где К находится по формуле -
К=(37-n)*(112-2*n).
Моє решение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program theyyou;
uses crt;
var n,k:Integer;
sum: Longint ;
 
begin
 
readln(n);
k:=(37-n)*(112-2*n);
for n:=(k*2) to (3*k) do
if n mod n = 0 then
sum:=sum+n;
WriteLn(sum);
end.
Можна ли сделать ету задачу не используя оператори цикла? И если да то как?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.12.2017, 15:15
Ответы с готовыми решениями:

Вычислить выражения, используя операторы для организации цикла
Вычислить выражения, используя операторы для организации цикла: ...

Используя операторы цикла с предусловием и постусловием, найти сумму ряда с указанной точностью
Используя операторы цикла с предусловием и постусловием, найти сумму ряда с...

Операторы цикла: вычислить сумму ряда
Вычислить значение функции: 7 Z = Ʃ 5x^2 + 2.5 / k ...

Операторы цикла: вычислить сумму ряда
Добрый день. Помогите пожалуйста решить данную задачку: 3(г). Заранее...

Операторы цикла: вычислить сумму ряда
Добрый день. Помогите пожалуйста решить данную задачку: 1(г). Заранее...

1
Puporev
Модератор
54350 / 41942 / 28978
Регистрация: 18.05.2008
Сообщений: 98,797
07.12.2017, 17:36 #2
Можно, как сумму арифметической прогрессии.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.12.2017, 17:36

Операторы цикла: вычислить сумму ряда
Дано натуральное число n. Вычислить \sum_{k=1}^{n}\frac{1}{{(2k+1)}^{2}}

Операторы цикла: вычислить сумму ряда
Задача: Операторы цикла Задание (Вложение) Кто нибудь знает такое?

Операторы цикла: вычислить сумму бесконечного ряда
Добрый день. Помогите пожалуйста решить данную задачку: 4(г). Заранее...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru