Sở GD&ĐT Thanh Hóa
(dùng cho khối 11)
Mã đề: 01
I Phần Trắc nghiệm :
Câu 4: C
II Phần Tự luận :
Câu 8:
PROGRAM KT_81;
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_91;
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);
readln;
END
Câu 10:
PROGRAM KT_101;
USES crt;
VAR a: array[1 100] of integer;
i,j,n,tam: integer;
BEGIN
clrscr;
1
Trang 2write('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 tang} 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