Bài tập pascal

BÀI TẬP CƠ BẢN - Đáp án ++
Viết chương trình tính điểm trung bình 3 môn Toán, Lý , Hoá theo hệ số 2,1,1 sau đó xếp loại như sau:
Loại Giỏi : ĐTB >= 8.0 và không có môn nào dưới 6,5
Loại Khá : 6.5=<ĐTB < 8.0 và không có môn nào dưới 5
Loại Trung bình : 5.0 =<ĐTB < 6.5 và không có môn nào dưới 3.5
Loại Yếu : Còn lại.
program xep_loai_hoc_sinh;
uses crt;
var t,l,h,tbc, min:real;
xl:string;

begin
write(`moi nhap diem toan,ly,hoa: `);
readln(t,l,h);
min:=l;
if min>t then min:=t;
if min>h then min:=h;
tbc:=(t*2+l+h)/4;
if (tbc>=8) and (min>=6.5) then xl:=`Gioi`;
else if (tbc>=6.5) and (min>=5)
then xl:=’Kha’;
else if (tbc>=5) and (min>=3.5)
then xl:=`Trung binh`
else xl:=`yeu`;
writeln(‘Diem trung binh:’,tbc:0:1,’ Xep loai:’,xl);
readln;
end.
VCT nhập vào tháng, năm và cho biết tháng đó có bao nhiêu ngày?
var n,t,ngay:integer;
begin
write(`nhap thang:`);readln(t);
write(`nhap nam:`);readln(n);
case t of
1,3,5,7,8,10,12: ngay:=31;
4,6,9,11:ngay:=30;
2: if n mod 4 = 0 then ngay :=29
else ngay:=28;
end;
writeln(`Thang:`,t,` nam:`,n,` co: `,ngay,` ngay`);
readln;
end.
VCT tìm ước chung lớn nhất và bội chung nhỏ nhất của hai số nhập vào từ bàn phím?
var a,b,min,max,ucln:integer;
begin
write(`moi nhap hai so can xac dinh: `);
readln(a,b);
max:=a;
min:=b;
if max mod min=0 then ucln:=min
else if min mod max=0 then ucln:=max
else
begin
repeat
if max>min then max:=max-min
else if max until max=min;
ucln:=min;
end;
write(`ucln `,ucln);
write(`bcnn `,a*b/ucln:1:1);
readln;
end.
VCT giải hai bài toán cổ: 100 trâu 100 bó cỏ và vừa gà vừa chó 36 con 100 chân?

var d,n,g:integer;
begin
for d:=1 to 20 do
for n:=1 to 33 do
for g:=1 to 98 do
if d*5+n*3+g=100
then writeln(`Trau dung:`,d,` trau nam:`,n,` trau gia:`,g);
readln;
end.
-----
var i,j:integer;
begin
for i:=1 to 25 do
for j:=1 to 50 do
if (i*4+j*2=100) and (i+j=36) then writeln(i,` con cho, `,j,` con ga.`);
readln;
end.
VCT xuất các số nguyên tố từ n đến m.(Dùng chương trình con)?
var j,n,m,i:integer;
function ktranto(x:integer):boolean;
begin
ktranto:=true;
for i:=2 to x -1 do
if x mod i=0 then ktranto:=false;
end;
begin
write(`moi nhap n,m: `);
readln(n,m);
for j:=n to m do
if ktranto(j) then writeln(j);
readln;
end.
VCT xuất các số hoàn hảo từ n đến m.(Dùng chương trình con)?
var x,tu,j,i,n,m:integer;
function ktrahhao(x:integer):boolean;
begin
tu:=0;
ktrahhao:=false;
for i:=1 to