Download: http://www.mediafire.com/?gvgre9brmscjcmt
PROGRAM CT57;
USES crt;
VAR Bao:STRING;
i,n: INTEGER;
Y: REAL;
BEGIN
clrscr;
Bao:='Y= ';
Writeln('Chuong trinh tinh Y=n/(n+1) voi n= den 50'); Writeln;
Y:=0;
FOR i:=1 TO 50 DO Y:=Y+i/(i+1);
Write(Bao,Y:10:2);
Readln
END.
PROGRAM CT57;
USES crt;
VAR Bao:STRING;
i,n: INTEGER;
Y: REAL;
BEGIN
clrscr;
Bao:='Y= ';
Writeln('Chuong trinh tinh Y=n/(n+1) voi n= den 50'); Writeln;
Y:=0;
FOR i:=1 TO 50 DO Y:=Y+i/(i+1);
Write(Bao,Y:10:2);
Readln
END.