program contrau;

uses crt;

var i,j,k:byte;

begin

clrscr;

for i:=1 to 20 do

for j:=1 to 33 do

begin

k:=100-i-j;

if 5*i+3*j+k/3 =100 then

writeln('trau dung',i,' trau nam',j,' trau gia',k);

end;

readln

end.

một xe máy đi trên quãng đường AB dài 60 km với vận tốc 40 km/h . Sau đó đi tiếp trên quãng đường bc dài 108 km với vận tốc 15 km/h.

a, Tính thời gian xe máy đi hết quãng đường ab và quãng đường bc

b, Tính vận tốc trung bình của xe máy trên cả hai quãng đường

nêu ưu điểm , nhược điểm và phạm vi sử dụng của vật liệu kim loại và vật liệu phi kim loại

program kiem_tra;

ues crt;

var a,b,c:integer;

begin

write('nhap so a');readln(a);

write('nhap so b');readln(b);

write('nhap so c');readln(c);

if(a*a=b*b+c*c)or(b*b=c*c+a*a)or(c*c=b*b+a*a)then writeln('day la tam giac vuong')else writeln('day la tam giac thuong');

readln;

end.

CÂU 17

a, Tính số mol và số nguyên tử có trong 14 gam Fe

b, Số mol MgO nhiều hơn gấp 2,5 lần số mol có trong 32 gam Fe Fe2O3.Hãy tính khối lượng MgO.