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

@cosanostra · Регистрация: 09.12.2009

Здравствуйте! Помогите, пожалуйста, написать алгоритм для вычисления выражения : P=1*(2+3)*(4+5+6)*…*(56+57+…+66).
Понимаю, что кол-во чисел в суммах в цикле от 1 до 11, но не могу осознать как правильно описать каждую сумму. Заранее спасибо за помощь.

@Jazon_deenAlt · 09.12.2009, 23:02

Pascal

uses crt;
var
s,i,j,k:integer;
p:real;
begin
k:=0;
p:=1;
for i:=1 to 11 do begin
s:=0;
for j:=1 to i do begin
k:=k+1;
s:=s+k;
end;
p:=p*s;
end;
writeln(p);
readln;
end.

@Puporev · 09.12.2009, 23:38

Проблема в том, что получается число в степени 20, поэтому нужно либо длинную арифметику, либо тип extended. Он выдает 19-20 точных знаков. Поскольку последние цифры ноли, то это подойдет.

Pascal

{N+}
uses crt;
var i,j:integer;
    s,p:extended;
begin
clrscr;
p:=1;s:=1;
for i:=2 to 11 do
 begin
  s:=0;
  for j:=1 to i do
  s:=s+i*(i-1) div 2+j;
  p:=p*s;
 end;
write('P=',p:20:0);
readln
end.

@cosanostra 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 3
		1
	Написать алгоритм для вычисления выражения 09.12.2009, 22:54. Показов 1707. Ответов 2 Метки нет (Все метки) Здравствуйте! Помогите, пожалуйста, написать алгоритм для вычисления выражения : P=1(2+3)(4+5+6)…(56+57+…+66). Понимаю, что кол-во чисел в суммах в цикле от 1 до 11, но не могу осознать как правильно описать каждую сумму. Заранее спасибо за помощь. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение