Tính chỉ số khối cơ thể BMI=W/\(H^2\).Biết W,H là một số thực được nhập từ bàn phím
2 câu trả lời
program sksk;
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/(2*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.
var
bmi:real;
w,h:integer;
begin
write('nhap vao chieu cao:');readln(h);
write('nhap vao can nang');readln(w);
bmi:=w mod (h*h);
if bmi <18,5 then write('nguoi gay')
else if (bmi<25) and (bmi>18,5) then write('nguoi binh thuong')
else if bmi>=25 then write('nguoi beo');
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
