PHÒNG GD-ĐT HUYỆN CẨM MỸ KỲ THI TIN HỌC TRẺ KHÔNG CHUYÊN Trường THCS:……………………… HÈ NĂM HỌC 2010 - 2011 ĐỀ THI THỰC HÀNH THỜI GIAN : 90’ Họ Tên:……………………………… SBD: GIÁM THỊ GIÁM THỊ MẬT MÃ ………………………………………………………………………………………………………………… ĐIỂM GIÁM KHẢO GIÁM KHẢO MẬT MÃ Bài 1: Viết chương tìm ước số chung lớn nhất của hai số nguyên a b khác 0, với a, b được nhập từ bàn phím Bài 2: Viết chương trình nhập vào mảng gồm n phần tử (nn then m:=m-n else n:=n-m; writeln('ucln(',a,',',b,')=',m); readln; End Program Bai2; Uses crt; Var b,a:array[1 100]of integer; n,i,j,k,tam:integer; Begin clrscr; write('nhap so phan tu cua day so nguyen : '); readln(n); writeln('nhap gia tri cua cac phan tu :'); for i:=1 to n begin write('a[',i,']= ') ; readln(a[i]); end; k:=0; for i:=1 to n begin j:=2; while a[i] mod j j:=j+1; if a[i] = j then begin k:=k+1; b[k]:=a[i]; end; end; for i:=1 to k-1 for j:=i+1 to k if b[i]>b[j] then begin tam:=b[i]; b[i]:=b[j]; b[j]:=tam; end; writeln('cac so nguyen to da duoc sap xep: '); for i:=1 to k write(b[i]:5); readln; End Program Bai3; Uses crt; Var t_dung, t_nam, t_gia: integer; Begin for t_dung:=1 to 100 for t_nam:=1 to 100 for t_gia:= to 100 if (t_dung+t_nam+t_gia=100) and (t_dung*5 + t_nam*3 + (t_gia/3) = 100) then writeln('trau dung: ',t_dung:5,'trau nam: ',t_nam:5,'trau gia: ',t_gia:5); readln End