Bài 6 :

uses crt;

var w, h, bmi : real;

begin

clrscr;

write('nhap chieu cao cua co the (met) :');readln(h);

write('nhap can nang cua co the (kg)  :');readln(w);

bmi := w/(h * h);

writeln('chi so BMI la :', bmi:8:2);

if bmi < 18.5 then writeln('la nguoi gay om');

if (bmi >=18.5) and (bmi < 25) then writeln('la nguoi binh thuong');

if (bmi >= 25) then writeln('la nguoi map beo');

readln

end.

Bài 3 :

uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap ba so nguyen a, b, c : ');readln(a, b, c);

if (a >= b + c) or (b >= c + a) or (c >= a + b) then

writeln('khong la ba canh cua tam giac')

else if (a = b) and (b = c) then writeln('tam giac deu')

else if (a = b) or (b = c) or (c = a) then writeln('tam giac can') 

else if (a*a = b*b + c*c) or (b*b = a*a + c*c) or (c*c = a*a + b*b)

then writeln('tam giac vuong');

readln

end.

Câu 6 :

uses crt;

Var W,H,BMI:longint;

begin

clrscr; 

    write(' Nhap W'); readln(W);

    write('Nhap H'); readln(H);

    Writeln(' Tinh BMI',W/H*H:4:2);

   If BMI<18.5 then write (' La nguoi gay');

   If  (18,5<=BMI) and (BMI<25) then write(' La nguoi binh thuong');

   If BMI>=25 then write (' La nguoi map beo');

 readln;

end.

Câu 7:

uses crt;

var a,b,c:longint;

begin

clrscr;

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

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

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

if (a>= b+ c) or (b>= c+a) or (C>=a+b) then write (' ko phai ba cnh cua tam giac');

If (a=b) or (b=c) or ( a=c) then write ('la tam giac can');

else

if (a = b) and (b = c) then writeln('La tam giac deu')

else

 if (a*a = b*b+c*c) or (b*b = c*c+a*a) or (c*c= a*a+b*b) then writeln('La tam giac vuong')

readln;

end.