Question

Viết chương trình nhập vào số nguyên n. In ra màn hình kết quả của các hép tính sau:

1/1+1/1+2+3/1+2+3+4/1+2+3+4+...+n/1+2+3+...+n

Answer 1

có phải là 1/1 + 1/1+2 +3/1+2+3 + 4/1+2+3+4 + ... + n/1+2+3+...+n

Answer 2

var n,i:integer;

s,mau:real;

begin

write('n=');readln(n);

s:=0;

mau:=0;

for i:=1 to n do

begin

mau:=mau+i;

s:=s+i/mau;

end;

write(' tong la ,s);

readln;

end.