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

Câu 1 :

Tên tệp tin lưu: Bai3.pas

Số nguyên tố là số chỉ chia hết cho 1 và chính nó (số 1 không gọi là số
nguyên tố). Ví dụ các số nguyên tố : 2, 3, 5, 7, 11, 13, 17,…
Cho N (5 ≤ N ≤ 50) là 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 của các số nguyên tố kể từ 2 đến N theo
như ví dụ sau:
Ví dụ :
Nhap N=7
Trung binh cong cac so nguyen to nho hon hoac bang 7 la: 4.3
Lưu ý: Số trung bình cộng này in đến 1 chữ số thập phân.
Câu 2 : Viết chương trình nhập vào mảng A là dãy số nguyên, sau đó đưa ra
màn hình các số dương trong dãy và tổng các số âm.
Câu 3: (6 điểm)
Viết chương trình nhập vào một số nguyên.
a) In ra màn hình các ước của số đó?
b) Số đã cho có bao nhiêu ước?
Ví dụ: Nhập vào số nguyên: 28
Các ước của 28 là: 1 2 4 7 14 28
Số 28 có: 6 ước.
Câu 4: Viết chương trình tính điểm trung bình 3 môn (Toán, Lý, Hóa) theo
hệ số (2:1:1) sau đó xếp loại như sau:
a) Loại Giỏi: ĐTB >= 8.0 và không có môn nào dưới 6.5
b) Loại Khá : 6.5=<ĐTB < 8.0 và không có môn nào dưới 5
c) Loại Trung bình : 5.0 =<ĐTB < 6.5 và không có môn dưới 3.5
d) Loại yếu: còn lại
Câu 5 :Nhập N số bất kì .
Đếm các số lớn hơn 10 và nhỏ hơn 20 và tính tổng của chúng . Sau đó , đưa
ra màn hình :

So cac so >10 và <20 la : ( gia tri )
Tong cua chung la : ( gia tri )
Câu 6: (7 điểm) Viết chương trình cho phép nhập vào dãy số nguyên gồm n
phần tử (1≤n≤100)
a) Tinh trung bình cộng của các phần tử lớn hơn 0 có trong dãy số.
(Kết quả làm tròn 2 chữ số ở phần thập phân)
b) Hiện ra màn hình các số nguyên tố có trong dãy số trên.
Ví dụ:

1


Dữ liệu vào (bàn phím)
12 -6 5 14 11 31 -7
32 -9 -7 7 3 -23

Dữ liệu ra (màn hình)
14.600
5 11 31
14.000
7 3

Câu 7: (7 điểm) Nhập vào 1 số tự nhiên N với (0 < N ≤ 65535).
a) Hãy cho biết chữ số lớn nhất của số tự nhiên vừa nhập.
b) Kiểm tra xem số đó có đối xứng không.
Ví dụ:

Dữ liệu vào (bàn phím)
3521
32123

Dữ liệu ra (màn hình)
5
Khong doi xung
3
Doi xung

Câu 8: (6 điểm) Viết chương trình cho phép nhập vào số nguyên n
(1≤n≤10000). In ra màn hình giá trị của biểu thức: T  1 

1 1 1
1
 2  2 .....  2 .
2
2 3 4
n

(Kết quả làm tròn 2 chữ số ở phần thập phân)
Ví dụ:

Dữ liệu vào (bàn phím)
Dữ liệu ra (màn hình)
10
1.55
105
1.64
Câu 9: Dãy fibonacci có 2 phần tử đầu là 1,1 . Các phần tử sau bằng tổng
hai phần tử đứng ngay trước nó: 1, 1, 2, 3, 5, 8, 13, 21….Nếu kí hiệu Fn là số
thứ n của dãy Fibonacci, ta có:
F1 = F2 = 1, Fn = Fn-1 + Fn-2, n>=3

Hãy viết chương trình nhập từ bàn phím số nguyên n và tính số hạng thứ n
của dãy Fibonacci
Câu 10 :Nhập 3 số a , b , c bất kì . Hãy kiểm tra xem ba số đó có thể là độ
dài ba cạnh của một tam giác hay không ? Thông báo lên màn hình ‘ Thỏa
mãn ‘, ‘ Không thỏa mãn trong từng trường hợp tương ứng .
Câu 11 :Nhập bốn số a , b , c , d . Hãy tìm giá trị lớn nhất của chúng và gán
giá trị lớn nhất đó cho biến Max

2


Câu 1:
uses crt;
var i,j,N,dem:word;
T:longint;
kt:boolean;
begin
clrscr;
write('Nhap N=');readln(N);
T:=0;dem:=0;
for i:=2 to N do
begin
kt:=false;
for j:=2 to i-1 do
if i mod j=0 then
begin
kt:=true;
break;
end;
if kt=false then

begin
T:=T+i;
inc(dem);
end;
end;
write('Trung binh cong cac so nguyen to nho hon hoac bang ',N,' la:
',T/dem:2:1);
readln;
end.
Program day_so;
Uses crt;
Var
A: array[1..100] of integer;
n,i,s:integer;
Begin
Clrscr;
Write('nhap so phan tu cua mang A:'); readln(n);
For i:=1 to n do
Begin
Write('A[',i,']='); readln(a[i]);
End;
S:=0;
Writeln('cac so duong trong mang la: ');
For i:=1 to n do
3


Begin
If a[i] >0 then writeln(a[i]);
If a[i] <0 then s:=s+a[i];

End;
Writeln('tong cac so am trong mang la:',s);
Readln;
End.

Program Timuoc;
Uses crt;
Var a,i,dem: integer;
Begin
Writeln (‘Nhap vao mot so nguyen: ’);
Readln (a);
dem:=0;
Write (‘Cac uoc cua so’,a, ‘la: ’);
For i:=1 to a do
If (a mod i = 0) then
Begin
Write (i,‘ ’);
dem:=dem+1;
end;
Write (‘So’,a, ‘co’,dem, ‘uoc’);
Readln;
End.
Program xep_loai_hoc_sinh;
uses crt;
var t,l,h,tbc, min:real;
xl:string;
Begin
write('moi nhap diem toan,ly,hoa: ');
readln(t,l,h);
Min:=l;

if min>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.
4


) Var
Tong , So : Real ; I , N , Dem : Integer ;
BEGIN
Write (' Bao nhieu so : ') ; Readln ( N ) ;
Tong := 0 ; Dem := 0 ;
For I := 1 To N Do
Begin
Write (' So = ') ; Readln ( So ) ;
If ( So > 10 ) and ( So < 20 ) Then
Begin
Tong := Tong + So ; Dem := Dem + 1 ;
End ;
End ;
Writeln (' So cac so >10 va <20 la : ', Dem ) ; Writeln (' Tong cua chung
la :', Tong ) ;
Readln ;
CHƯƠNG TRÌNH THAM KHẢO

Program câu6;
Uses crt;
Var i,n: integer;
t: real;
Begin
Clrscr;
Write('Nhap n: '); readln(n);
t:=0;
for i:=1 to n do t:=t+1/(i*i);
Writeln('T=',t:0:2);
Readln;
End.
Program cau7;
Uses crt;
Var i,j,n,d,t: integer;
a: array[1..100] of Integer;
Begin
Clrscr;
Write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
5


d:=0; t:=0;
For i:=1 to n do
if a[i]>0 then
begin

t:=t+a[i];
d:=d+1;
end;
Writeln('Trung binh cong cua cac phan tu lon ho 0 la: ', t/d:0:3);
Writeln('Cac so nguyen to co trong day so la: ');
For i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do if a[i] mod j=0 then d:=d+1;
if d=2 then Write(a[i],' ');
end;
Readln;
End.
Program cau8;
Uses crt;
Var s,s1,max: string;
i: integer;
Begin
Clrscr;
Write('Nhap n: '); readln(s);
max:='';
for i:=1 to length(s) do if s[i]>max then max:=s[i];
Writeln('Chu solon nhat la ',max);
s1:='';
for i:=length(s) downto 1 do s1:=s1+s[i];
if s1=s then writeln(s,' la xau doi xung')
else writeln(s,' khong la xau doi xung');
Readln;
End.
Câ10

program soncuafibonacy;
var a,b,c,i,n:longint;
begin
write ('nhap so hang can tinh');readln(n);

6


if(n=1)or(n=2) then c:=1;
else
begin a:=1; b:=1;
for i:=3 to n do
begin
c:=a+b;
a:=b;b:=c;
end;
end;
writeln('so hang thu n cua day fibonaci la:',c);
readln
end.
1) Var
a , b , c : Real ;
BEGIN
Writeln (' Nhap do dai 3 canh cua tam giac : ') ;
Write (' a = ') ; Readln ( a ) ;
Write (' b = ') ; Readln ( b ) ;
Write (' c = ') ; Readln ( c ) ;
If ( a + b > c ) and ( b + c > a ) and ( c + a > b ) and ( a > 0 ) and ( b > 0 )
and ( c > 0 ) Then

Writeln (' Thoa man : Day la 3 canh cua mot tam giac ')
Else
Writeln (' Khong thoa man ! ') ;
Readln ;
END .
Var
Max , a , b , c , d : Real ;
BEGIN
Writeln (' Nhap gia tri cua 4 so : ') ;
Write (' a = ') ; Readln ( a ) ; Write (' b = ') ; Readln ( b ) ; Write (' c =
') ; Readln ( c ) ; Write (' d = ') ; Readln ( d ) ;
Max := a ;
If Max < b Then Max := b ; If Max < c Then Max := c ; If Max < d
Then Max := d ;
Writeln (' Gia tri lon nhat la : ', Max ) ;
Readln ;
END .

7