Задача по информатике помогите решить СРОЧНО!!!!тема циклы S=1+1*2+1*2*3+1*2*3*4+1*2*3*4*5+1*2*3*4*5*6+1*2*3*4*5*6*7+1*2*3*4*5*6*7*8+1*2*3*4*5*6*7*8*9+1*2*3*4*5*6*7*8*9*10 Нужно найти сумму произведений!)
Задача по информатике помогите решить СРОЧНО!!!!тема циклы
S=1+1*2+1*2*3+1*2*3*4+1*2*3*4*5+1*2*3*4*5*6+1*2*3*4*5*6*7+1*2*3*4*5*6*7*8+1*2*3*4*5*6*7*8*9+1*2*3*4*5*6*7*8*9*10
Нужно найти сумму произведений!)
Гость
Ответ(ы) на вопрос:
Гость//PASCAL
var
i, j, x, y: integer;
begin
x := 1;y := 0;
for i := 1 to 9 do
begin
y := 1;
for j := 1 to i do inc(y, y * j);
inc(x, y);
end;
writeln(x);
end.
Гостьvar i:integer; s,p:real;
begin
s:=0;
p:=1;
for i:=1 to 10 do
begin
p:=p*i;
s:=s+p;
end;
writeln('s = ',s);
end.
Результат:
s = 4037913
Не нашли ответ?
Похожие вопросы