Написать программу, находящую сумму на отрезке [x; y],где каждое слагаемое представляет произведение чисел отрезка в порядке их следования.

@Kalatuxa · Регистрация: 16.09.2013

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

Написать программу, находящую сумму на отрезке [x; y],где каждое слагаемое представляет произведение чисел отрезка в порядке их следования. Первое слагаемое содержит один элемент - , второе – произведение двух следующих, третье – трех следующих и т.д. Последнее слагаемое является произведением всех оставшихся чисел до y включительно. Нахождение слагаемого оформить в виде функции.

@Puporev · 17.09.2013, 07:23

Pascal

uses crt;
{функция вычисления слагаемого, параметры начало и конец интервала}
function pr(n1,n2:integer):integer;
var i,p:integer;
begin
p:=1;
for i:=n1 to n2 do
p:=p*i;
pr:=p
end;
var x,y,s,n1,n2,h:integer;
begin
clrscr;
repeat
writeln('Введите диапазон целых чисел x<y');
readln(x,y);
until x<y;
s:=x;{первое слагаемое}
h:=0;{шаг увеличения интервала, пока 0}
n2:=x;{конец первого интервала}
repeat
n1:=n2+1;{начало следующего интервала за концом предыдущего}
h:=h+1; {увеличим интервал на 1}
n2:=n1+h; {конец очередного интервала}
if n2>y then n2:=y; {если он больше y, то ограничим}
s:=s+pr(n1,n2);{вычислим слагаемое и прибавим}
until n2=y;{конц, если n2=y}
write('s=',s);
readln
end.

@Kalatuxa · 17.09.2013, 09:36 **[ТС]**

Большое спасибо

@Kalatuxa 0 / 0 / 0 Регистрация: 16.09.2013 Сообщений: 6
		1
	Написать программу, находящую сумму на отрезке [x; y],где каждое слагаемое представляет произведение чисел отрезка в порядке их следования. 16.09.2013, 19:34. Показов 1423. Ответов 2 Метки нет (Все метки) Написать программу, находящую сумму на отрезке [x; y],где каждое слагаемое представляет произведение чисел отрезка в порядке их следования. Первое слагаемое содержит один элемент - , второе – произведение двух следующих, третье – трех следующих и т.д. Последнее слагаемое является произведением всех оставшихся чисел до y включительно. Нахождение слагаемого оформить в виде функции. 0

@Kalatuxa 0 / 0 / 0 Регистрация: 16.09.2013 Сообщений: 6
	17.09.2013, 09:36 [ТС]	3
	Большое спасибо 0

Опции темы

Написать программу, находящую сумму на отрезке [x; y],где каждое слагаемое представляет произведение чисел отрезка в порядке их следования.

Решение