ĐƠ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 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 . ĐƠ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,. 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:=