Question

Вопрос по паскалю- программирование, циклы
помогите)

Answer 1

6.3

 const     
n = 5; 
var   
i,j : integer;   
ch,zn : integer;   
r : real;  
begin 
r := 0;   
for i := 1 to n do   
begin   
 ch := 0;   
 zn := 1;   
 for j := 1 to i do   
  begin     
  ch := ch + j;     
  zn := zn * j;   
  end;   
 //writeln (i,' ',ch,'/',zn);   
 r := r + ch/zn;      
 end;    
writeln (r:3:2); 
end.