Bài 1:

Program bai1;

Uses crt;

Var a:real;

Begin

Clrscr;

Write('Nhap chieu cao(don vi cm):'); Readln(a);

If a>150 then writeln('Tien ve la 100000')

Else If a>130 then writeln('Tien ve la 50000'); 

If a<100 then writeln('Mien phi'); 

Readln

End.

Bài 2:

Program bai2;

Uses crt;

Var cn,cc,BMI:real;

Begin

Clrscr;

Write('Nhap chieu cao:'); Readln(cc);

Write('Nhap can nang:'); Readln(cn);

BMI:=cn/(cc*cc):5:2;

If BMI<18.5 then writeln('Nhe can, suy dinh duong');

If (BMI>18.5) and (BMI<25) then writeln('Binh thuong');

If (BMI>25) and (BMI<30) then writeln('Thua can');

If BMI>=30 then writeln('Beo phi');

Readln

End.

Bài 1 :

uses crt;

var a : real;

begin

clrscr;

write('nhap chieu cao (cm) :'); readln(a);

if a > 150 then writeln('Tien ve la 100000');

if (a <= 150) and (a > 130) then writeln('Tien ve la 50000');

if (a < 100) then write('Mien phi');

readln

end.

Bài 2 :

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/(h*h);

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

if bmi < 18.5 then writeln('nhe can, suy dinh duong');

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

if (bmi >= 25) and (bmi <30) then writeln('thua can');

if (bmi >= 30) then writeln('beo phi');

readln

end.