Sở GD&ĐT Thanh Hóa Trờng THPT Tĩnh Gia 1 ĐáP án bài kiểm tra 1 tiết (dùng cho Ban cơ bản khối 11) Mã đề: 02 I. Phần Trắc nghiệm : Câu 1: C. Câu 5: B. Câu 2: A. Câu 6: A. Câu 3: D. Câu 7: D. Câu 4: B. II. Phần Tự luận : Câu 8: PROGRAM KT_82; USES crt; VAR a,b,c: integer; BEGIN clrscr; write(' nhap so thu nhat: '); readln(a); write(' nhap so thu hai: '); readln(b); write(' nhap so thu ba: '); readln(c); begin if (a+b>c)and(b+c>a)and(c+a>b) then writeln('ba so ', a,',',b,',',c,' la 3 canh tam giac') else writeln(' khong phai la 3 canh tam giac '); end; readln; END. Câu 9: PROGRAM KT_92; USES crt; VAR a,b: integer; BEGIN clrscr; write(' nhap vao so thu nhat: '); readln(a); write(' nhap vao so thu hai: '); readln(b); while a<>b do begin if a>b then a:= a-b else b:= b-a; end; if a=b then writeln(' UCLN la: ',a); 1 readln; END. C©u 10: PROGRAM KT_102; USES crt; VAR a: array[1 100] of integer; i,j,n,tam: integer; BEGIN clrscr; write('nhap so phan tu cua mang: ');readln(n); for i:= 1 to n do begin write('A[',i,']:= '); readln(a[i]); end; for i:= 1 to n-1 do for j:= n downto i+1 do if a[i]>a[j] then {day khong giam} begin tam:= a[i]; a[i]:= a[j]; a[j]:= tam; end; writeln(' day sau khi sap xep '); for i:= 1 to n do write(a[i]:2); readln; END. 2 . Sở GD&ĐT Thanh Hóa Trờng THPT Tĩnh Gia 1 ĐáP án bài kiểm tra 1 tiết (dùng cho Ban cơ bản khối 11) Mã đề: 02 I. Phần Trắc nghiệm : Câu 1: C. Câu 5: B. Câu 2: A. Câu 6: A. Câu. a<>b do begin if a>b then a:= a-b else b:= b-a; end; if a=b then writeln(' UCLN la: ',a); 1 readln; END. C©u 10: PROGRAM KT_ 102; USES crt; VAR a: array[1 100] of integer; . 1 to n do begin write('A[',i,']:= '); readln(a[i]); end; for i:= 1 to n-1 do for j:= n downto i+1 do if a[i]>a[j] then {day khong giam} begin tam:= a[i]; a[i]:=