Bài 5:

uses crt;

var m,n:longint;

begin

clrscr;

write('Nhap so kWh su dung: ');readln(n);

write('Nhap don gia cua 1 kWh: ');readln(m);

writeln('So tien phai tra: ',n*m);

readln;

end.

Bài 7:

uses crt;

var w,h:longint;

begin

clrscr;

write('Nhap can nang: ');readln(w);

write('Nhap chieu cao: ');readln(h);

if (w/sqr(h))<18.5 then writeln('Chi so BMI: ',w/sqr(h),' la nguoi gay');

if ((w/sqr(h))>18.5) and (w/sqr(h)<25) then writeln('Chi so BMI: ',w/sqr(h),' la nguoi binh thuong')

else writeln('Chi so BMI: ',w/sqr(h),' la nguoi beo');

readln;

end.

Bài 8:

uses crt;

var m,n:longint;

begin

clrscr;

write('Nhap thoi gian lam binh: ');readln(n);

write('Nhap thoi gian lam them: ');readln(m);

writeln('Tien cong lao dong la: ',25000*(n+2*m);

readln;

end.

Bài 5: Viết chương trình tính tiền điện với tiền điện = số kwh*đơn giá, số kwh nhập từ bàn phím và đơn giá=3000. Bài 7: Viết chương trình tính chỉ số khối cơ thể BMI (Body Mass Index) theo công thức BMI=W/H² trong đó: W là cân nặng tính bằng kilôgam, H là chiều cao tính bằng mét. Giá trị W và H được nhập vào từ bàn phím. Nếu BMI<18.5: người gầy 18.5<BMI<25: bình thường Nếu BMI>=25: người béo Bài 8: Viết chương trình tính tiền công lao động như sau: Đơn giá mỗi giờ làm là 25000 đồng. Nếu làm ngoài giờ thì được tính gấp đôi. Với số giờ làm bình thường và số giờ làm ngoài giờ được nhập vào từ bàn phím.