Вычислите сумму - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.67/6:

@stasuan007 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 5

	Вычислите сумму 20.12.2015, 17:33. Показов 1093. Ответов 2 Метки нет (Все метки) напишите пожалуйста код если несложно Заранее спасибо Миниатюры 0

Лучшие ответы (1)

Сообщение: #8519164

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

20.12.2015, 17:33

Ответы с готовыми решениями:

Вычислите сумму
дано натуральное число n. Вычислите сумму S=2*2=3*4+4*6+5*8+6*10+...+n*2*(n-1).

Вычислите сумму
Оператор Цикла с параметром. Вычислить сумму \sqrt{1+\sqrt{2+\sqrt{3+...+\sqrt{50}}}}

Вычислите сумму ряда
Вычислите 1*2+2*3*4+...+n*(n+1)*…*2n. помогите пожалуйста.

Cold_Iceberg

2 / 2 / 7

Регистрация: 21.11.2015

Сообщений: 7

20.12.2015, 20:05

Сообщение было отмечено stasuan007 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
b, c, n, i, k: integer;
a, suma:real;
begin
readln (n);
b:=2;
for i:= 2 to n do
begin
k:=1-k;
if k=1 then c:=-1 else c :=1 ;
b:= b*(i*2-1)*(i*2);
a:=i /b*c ;
suma:=suma+a;
end;
writeln (suma) ;
readln;
end.

@stasuan007 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 5
	20.12.2015, 22:42 [ТС]
	Спасибо большое, выручил:) 0

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

20.12.2015, 22:42

Помогаю со студенческими работами здесь

Вычислите сумму N слагаемых!
При некоторых заданных x, N и Е, определяемых вводом, вычислите сумму N слагаемых заданного вида, затем сумму тех слагаемых, которые по...

Вычислите сумму ряда
Вычислите сумму ряда для каждого значения x пренадлежит с шагом h. Вычисление производить до тех пор, пока очередной член больше ε. ...

По данному числу n вычислите сумму
Задачка сложная попалась.... По данному числу n вычислите сумму 4(1-1/3+1/5-1/7+...+(-1)n/(2n+1)). Формат входных данных ...

Вычислите сумму членов ряда
Помогите с задачей: Вычислите сумму членов ряда (на картинке) с точностью до члена ряда, меньшего чем 10 в (-5) степени. ...

По данному числу n вычислите сумму 1+1/22+1/32+.+1/n2
По данному числу n вычислите сумму 1+1/22+1/32+...+1/n2.

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

Наверх