uses crt; var n,i:integer; s1,s2:qword; s:extended; BEGIN clrscr; write('Nhap n:'); readln(n); s1:=0; s2:=1; for i:=1 to n do s1:=s1+i; for i:=2 to n do s2:=s2*i; s:=s1/s2; write('S=',s:0:25); readln END.
uses crt; var s,t,ti:real; n,i:longint; begin clrscr; write('n=');readln(n); ti:=1; for i:=1 to n do begin t:=t+i; ti:=ti*i; end; s:=t/ti; writeln('S=',s:0:5); readln end.
