DE THI HSG TIN 8

CÂU 4 Var n, i: interger; Begin Write‘Nhap vao mot so nguyen:’; readlnn; If n.

ĐƠ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 a<b then max:=b;

If a<c then max:=c;

Writeln (‘Gia tri lon nhat la:’,max);

Readln

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