Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
QuestDungeon
0 / 0 / 0
Регистрация: 22.11.2017
Сообщений: 4
#1

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

07.12.2017, 15:15. Просмотров 95. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить сумму чисел, кратных n на интервале, не используя операторы цикла (Turbo Pascal):

В интервале от А до В найти сумму положительных чисел кратных 3 - Turbo Pascal
и их колличество

Вычислить сумму, используя оператор цикла - Pascal
Необходимо вычислить сумму, используя оператор цикла. Если не трудно, помогите с заданием, пожалуйста! S=1+\sum_{k=1}^\infty...

Используя оператор цикла с предусловием, вычислить сумму ряда - Turbo Pascal
Используя оператор цикла с предусловием, вычислить сумму ряда с точностью ε=10-3: S=\sum_{n=1}^{\propto }\frac{\left(n+1 \right)\ln n}{n!}

Используя оператор цикла с постусловием вычислить сумму ряда sum=(2a+i/i) - Turbo Pascal
Используя оператор цикла с постусловием вычислить сумму ряда sum=(2a+i/i) при i=1..n

Найти на интервале <от меньшего из них до большего из них> сумму всех целых нечетных чисел, кратных 5 - Pascal
Даны целые числа N и M. Найти на интервале &lt;от меньшего из них до большего из них&gt; сумму всех целых нечетных чисел, кратных 5.

Используя оператор цикла с последующей условием, вычислить сумму бесконечного ряда - Pascal
Всем привет. Помогите пожалуйста с заданием! Используя оператор цикла с последующей условием, вычислить сумму бесконечного ряда,...

1
Puporev
Модератор
54007 / 41640 / 14723
Регистрация: 18.05.2008
Сообщений: 97,884
07.12.2017, 17:36 #2
Можно, как сумму арифметической прогрессии.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.12.2017, 17:36
Привет! Вот еще темы с ответами:

Вычислить сумму чисел, кратных 3 из интервала [3,60] - Turbo Pascal
Вычислить сумму чисел, кратных 3 из интервала : S = 3 +6 +9 + ... +60.

Вычислить сумму трехзначных чисел, кратных 37 - Pascal
Нужно составить программу вычисляющую сумму всех трехзначных чисел, кратных 37. Заранее благодарен.

Вычислить сумму и количество кратных 7 чисел от a до в - Pascal
var a,b,s,k,x:integer; begin writeln('введи начало интервала'); readln(a); writeln(' введи конец интервала'); readln(b); x:a; ...

Используя оператор цикла с предварительным условием вычислить сумму конечного числа слагаемых - Turbo Pascal
Используя оператор цикла с предварительным условием вычислить сумму конечного числа слагаемых. При исчислении ряда использовать...


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

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

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