Question

ПОМОГИТЕ! Посчитайте сумму по следующему правилу s= 0+1+2*2+3*3*3+4*4*4*4 (и так от 0 до 10). Составить программу паскаль

Answer 1

 Var 
s,i,j,a:integer;
Begin  for i:= 1 to 3 do Begin   
for j:= 1 to i do      
a:=a*i;   
s:=s+a;   
a:=1; 
End; 
Write('Ответ ',s+1);
End.