DE THI HSG TIN 8

ĐƠN VỊ: THCS LONG HỮU ĐỀ THI HỌC SINH GIỎI
MÔN THI: TIN HỌC LỚP 8
THỜI GIAN: 90 PHHÚT
-----------------------------

CÂU 1 (5đ): Viết chương trình nhập ba số dương a, b, c từ bàn phím, kiểm tra và in ra màn hình kết quả kiểm tra ba số đó có thể là độ dài các cạnh của một tam giác hay không?
CÂU 2 (5đ): Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím?
CÂU 3 (5đ): Viết chương trình tìm số lớn nhất trong ba số nguyên a, b, c được nhập vào từ bàn phím?
CÂU 4 (5đ): Viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố hay không?
--Hết---

ĐÁP ÁN
Câu 1
Program Ba_canh_tam_giác;
Uses crt;
Var a, b, c :real;
Begin
Clrscr;
Write(‘Nhap canh a=’); readln(a);
Write(‘Nhap canh b=’); readln(b);
Write(‘Nhap canh c=’); readln(c);
If (a+b>c) and (b+c>a) and (c+a>b) then
Writeln (‘a, b, c la ba canh cua mot tam giac!’)
Else
Writeln (‘a, b, c khong la ba canh cua mot tam giac!’);
Readln
End.
Câu 2
Program Tinh_tong;
Uses crt;
Var N, i: integer;
S: longint;
Begin
Clrscr;
Write(‘Nhap so N=’); readln(N);
S:= 0;
For i:= 1 to N do
S:=s+i;
Writeln (‘Tong cua’, N, ‘so tu nhien dau tien S=’,S);
Readln
End.
Câu 3
Program So_lon_nhat;
Uses crt;
Var a, b, c, max: integer;
Begin
Clrscr;
Write(‘Nhap so a=’); readln(a);
Write(‘Nhap so b=’); readln(b);
Write(‘Nhap so c=’); readln(c);
Max:=a;
If aIf a Writeln (‘Gia tri lon nhat la:’,max);
Readln
End.
CÂU 4
Var n, i: interger;
Begin
Write(‘Nhap vao mot so nguyen:’); readln(n);
If n<=1 then writeln (n, ‘khong la so nguyen to’)
Else
Begin
i:=2;
while (n mod i <>0) do i:=i+1;
if i =n then writeln(n, ‘la so nguyen to’)
else
writeln(n, ‘khong la so nguyen to’):
end;
readln
end.


---Hết---