Bài tập 4 :

program sksk;

uses crt;

var n, tram, chuc, donvi, kq : integer;

begin

clrscr;

write('nhap so nguyen duong ba chu so :');readln(n);

tram := n div 100;

chuc := (n div 10) mod 10

donvi := n mod 10;

kq := donvi * 100 + chuc + 10 + tram;

writeln('so dao :', kq);

readln

end.

Bài 5 :

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

Bài 6 : 

program sksk;

uses crt;

var c, f,a , b : real;

begin

clrscr;

write('nhap do c :');readln(c);

write('nhap do f :');readln(f);

a := 5/9 * (f - 32);

b := 9/5 * (c + 32);

writeln(c:8:0,' do c = ', a:8:0 ,' do f');

writeln(f:8:0,' do f = ', b:8:0 ,' do c');

readln

end.