Написать программу для вычисления суммы членов этой последовательности

@maxwelln1 · Регистрация: 03.11.2014

Author24 — интернет-сервис помощи студентам

1)Дана арифметическая прогрессия a1,a2,...,an. Написать программу для вычисления суммы членов этой последовательности.
Пример ПРАВИЛЬНОЙ программы
ВВОД:
a1=2
a2=5
an=11
Вывод
s=26

2)Дана бесконечно убывающая геометрическая прогрессия b1,b2,.... . Найти ее сумму.
Пример ПРАВИЛЬНОЙ программы
ВВОД:
b1=1
b2=0.5
Вывод:
s=2

@Puporev · 05.11.2014, 17:08

1)

Pascal

var a1,a2,an,d,n,s:integer;
begin
readln(a1,a2,an);
d:=a2-a1;
n:=(an-a1)div d+1;
s:=(a1+an)*n div 2;
write(s)
end.

Добавлено через 6 минут
2)

Pascal

var b1,b2,q,s:real;
begin
readln(b1,b2);
q:=b2/b1;
s:=b1/(1-q);
write(s:0:2)
end.

@maxwelln1 · 05.11.2014, 17:16 **[ТС]**

не обязательно целочисленный тип
может быть и real а для real нельзя div вроде да?

@Puporev · 05.11.2014, 17:18

Сообщение от maxwelln1

а для real нельзя div вроде да?

Конечно нет, переделай сам.

@maxwelln1 2 / 2 / 0 Регистрация: 03.11.2014 Сообщений: 59
		1
	Написать программу для вычисления суммы членов этой последовательности 05.11.2014, 16:51. Показов 656. Ответов 3 Метки нет (Все метки) 1)Дана арифметическая прогрессия a1,a2,...,an. Написать программу для вычисления суммы членов этой последовательности. Пример ПРАВИЛЬНОЙ программы ВВОД: a1=2 a2=5 an=11 Вывод s=26 2)Дана бесконечно убывающая геометрическая прогрессия b1,b2,.... . Найти ее сумму. Пример ПРАВИЛЬНОЙ программы ВВОД: b1=1 b2=0.5 Вывод: s=2 0

@maxwelln1 2 / 2 / 0 Регистрация: 03.11.2014 Сообщений: 59
	05.11.2014, 17:16 [ТС]	3
	не обязательно целочисленный тип может быть и real а для real нельзя div вроде да? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.11.2014, 17:18	4
	Сообщение от maxwelln1 а для real нельзя div вроде да? Конечно нет, переделай сам. 0

Опции темы