I. NỘI DUNG: Bài 1: Viết chương trình giải PT: ax2 + bx+ c = 0 (a≠ 0) Viết chương trình giải hệ PT: Bài 2: Viết chương trình nhập vào một số n lớn (n>1000). Giả sử n lưu trữ số giây. Đổi n ra giờ, phút giây. Ví dụ 3665 giây = 1 giờ + 1 phút + 5 giây HD: Nhập n M:=n; h:=0; p:=0; g:=0; If m>3600 then begin h:=m div 3600; m:=m mod 3600; end; If m> 60 then begin p:=m div 60; m:=m mod 60; end; g:=m; writeln(n, ‘ duoc doi ra’, h, ‘ gio ’, p, ‘ phut ‘, g, ‘giay’); Bài 3: Nhập vào một số nguyên N. Kiểm tra số N có phải là số nguyên tố hay không? HD: nhập n ok:=true; IF N>=4 THEN for i:=2 to n div 2 do if n mod i =0 then begin ok:=false; break; end; if ok= true then writeln(n, ‘la nguyen to’) else writeln(n, ‘ khong la nguyen to’); Bài 4: Nhập vào một số nguyên N. Kiểm tra số N có phải là số chính phương? (VD : 9, 25, 36…) HD: nhập n if frac(sqrt(n))=0 then writeln(n, ‘la chinh phương’) else writeln(n, ‘ khong la chinh phuong’); Bài 5: Nhập vào một số nguyên N. Kiểm tra số N có phải là số hoàn hảo hay không? nhập n ok:=true; T:=0; for i:=1 to n div 2 do if n mod i =0 then T:=T+i; if n= T then writeln(n, ‘la hoan hao’) else writeln(n, ‘ khong la hoan hao’); Bài 6: Nhập vào một số nguyên N. Kiểm tra số N có phải là số đẹp hay không? ( Số đẹp là số có chữ số sau luôn lớn hơn hoặc bắng chữ số đứng trước nó) nhập n; M:=n; ok:=true; while (m>0) and(ok=true) do begin cs1:=m mod 10; m:= m div 10; cs2:= m mod 10; if cs1