BÀI tập ôn THI HSG TIN 8

Câu : Tên tệp tin lưu: Bai3.pas Số nguyên tố số chia hết cho (số khơng gọi số ngun tố) Ví dụ số nguyên tố : 2, 3, 5, 7, 11, 13, 17,… Cho N (5 ≤ N ≤ 50) số nguyên dương nhập từ bàn phím Hãy viết chương trình tính trung bình cộng số ngun tố kể từ đến N theo ví dụ sau: Ví dụ : Nhap N=7 Trung binh cong cac so nguyen to nho hon hoac bang la: 4.3 Lưu ý: Số trung bình cộng in đến chữ số thập phân Câu : Viết chương trình nhập vào mảng A dãy số nguyên, sau đưa hình số dương dãy tổng số âm Câu 3: (6 điểm) Viết chương trình nhập vào số nguyên a) In hình ước số đó? b) Số cho có ước? Ví dụ: Nhập vào số ngun: 28 Các ước 28 là: 14 28 Số 28 có: ước Câu 4: Viết chương trình tính điểm trung bình mơn (Tốn, Lý, Hóa) theo hệ số (2:1:1) sau xếp loại sau: a) Loại Giỏi: ĐTB >= 8.0 khơng có môn 6.5 b) Loại Khá : 6.5=0 then writeln(a[i]); If a[i] t then min:=t; if min>h then min:=h; tbc:=(t*2+l+h)/4; if (tbc>=8) and (min>=6.5) then xl:='Gioi' else if (tbc>=6.5) and (min>=5) then xl:='Kha' else if (tbc>=5) and (min>=3.5) then xl:='Trung binh' else xl:='yeu'; writeln('Diem trung binh:',tbc:0:1,' Xep loai:',xl); readln; End ) Var Tong , So : Real ; I , N , Dem : Integer ; BEGIN Write (' Bao nhieu so : ') ; Readln ( N ) ; Tong := ; Dem := ; For I := To N Do Begin Write (' So = ') ; Readln ( So ) ; If ( So > 10 ) and ( So < 20 ) Then Begin Tong := Tong + So ; Dem := Dem + ; End ; End ; Writeln (' So cac so >10 va