Question

a.     Nhập cân nặng (W) và chiều cao ( h ) của một bạn bất kỳ

b.     Tính chỉ số khối của cơ thể BMI (BMI=W/h2) và thông báo chỉ số khối đó ra màn hình.

c.      In ra màn hình đánh giá về sự phát triển của bạn đó:

-         BMI >=25 thông báo “bạn mập rồi đó nhé”

-         18.5<=BMI<25 thông báo “Bạn phát triển bình thường”

-         BMI<18.5 thông báo “Bạn phát triển chậm rồi”

 

Answer 1

Tk

Program Can_nang;

Uses Crt;

Var W,h,BMI: Real;

Begin

Clrscr;

Writeln('Nhap can nang');Readln(W);

Writeln('Nhap chieu cao');Readln(h);

BMI:= W/h*h ;

Writeln(' Chi so khoi cua co the la', BMI:0:1);

If (BMI >=25) then Write(' Ban map roi do nhe');

If (18.5<=BMI) and (BMI<25) then Write(' Ban phat trien binh thuong') ;

If (BMI< 25) then Write(' Ban phat trien cham roi') ;

Readln;

end.