1.Viết chương trình nhập nhiệt độ theo thang độ Fahrenheit rồi chuyển sang nhiệt độ theo thang độ Celsius rồi in kết quả ra màn hình. Biết công thức chuyển nhiệt độ F sang độ C là: C=(5/9)*(F-32) 2.(Tách số). Nhập vào một chữ số có ba chữ số, viết chương trình tách ra số hàng trăm, hàng chục và hàng đơn vị

- Chương trình 1 :

uses crt;

var F, C : real;

begin

clrscr;

write('Nhap nhiet do Fahrenheit = '); readln(F);

C := (5 / 9) * (F - 32);

write('Do C = ', C : 2 : 2);

readln

end.

- Chương trình 2 :

uses crt;

var a, b, c, d : integer;

begin

clrscr;

write('Nhap so co ba chu so = '); readln(d);

a := d div 100;

b := (d - a * 100) div 10;

c := d - a * 100 - b * 10;

writeln('Hang tram : ', a);

writeln('Hang chuc : ', b);

writeln('Hang don vi : ', c);

readln

end.