Вычислить (1+2) * (1+2+3) * (1+2+3+4) * ... (1+2+... +10) программа Паскаль срочно

Question

Вычислить (1+2) * (1+2+3) * (1+2+3+4) * ... (1+2+... +10)
программа Паскаль
срочно

Answer 1

Program fagasg;
var g,h: Real;
i: integer;
begin
g:=3;
h:=3;
For i:=2 to 10 do 
begin 
g:=g+i+1; 
h:=g*h; 
end;
Writeln(h);
end. 

Comments

Если не будет работать - отпиши, скину скрин программы, мог случайно удалить кое-что при переносе кода