Tính BMI cân nặng 50kg chiều cao 1,49 vậy tính ra tỉ số BMI xếp loại nào
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.


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.

var BMI: real;
begin
writeln('nhap chi so BMI: ');readln(BMI);
if (16<BMI) and (BMI<18.5) then writeln('Bạn bị thiếu cân');
if (18.5<BMI)and (BMI<25) then writeln('Bạn đủ cân');
if BMI>25 then writeln('Bạn đang thừa cân');
end.

Biện pháp phòng chống bệnh béo phì
+Có chế độ dinh dưỡng hợp lí: ăn uống lành mạnh, không ăn quá nhiều đồ ngọt, chất béo, chất bột đường...
+Lối sống lành mạnh: thường xuyên tập thể dục...
BMI là j nói rõ ra coi
22.5, Bth