BÀI 1 (4,0 ĐIỂM). KHỞI ĐỘNG CHƯƠNG TRÌNH PASCAL, VIẾT CHƯƠNG TRÌNH NHẬ...

3.4 4.5 5.6

...

(

2)(

3)

n

n

n





Chương trình tham khảo ĐiểmUses Crt;Var 0,5n,i:Integer;s:Real;BEGINClrScr; Write(‘Nhap so tu nhien n=');Readln(n); While ((n<=5) OR (n>100) do1 BeginWrite(‘Nhap lai n thoa man 5 < n <=100, n = ');Readln(n); end;s:=0; For i:=1 to n do s:=s+i*(i+1)/((i+2)*(i+3)); 1,5 Write(‘s=’,s:4:3); 0,5ReadlnEND. 0,5

Bộ Test thử

n nhập vào Kết quả thông báo hoặc kết quả S trên màn hình4 Nhap lai n thoa man 5 < n <=100, n =5 1.8796 2.462