Bài 1:

Program Fahrenheit;
uses crt;
var a:integer;
BEGIN
    write('Nhap vao nhiet do Fahrenheit: '); readln(a);
    write('Ket Qua: ',(5/9)*(a-32):1:6);
END.

Bài 2:

Program Bai2;
uses crt;
var a:integer;
BEGIN
    write('Nhap vao so co 3 chu so: '); readln(a);
    writeln('Don vi: ',a mod 10);
    a:=a div 10;
    writeln('Hang chuc: ', a mod 10);
    a:=a div 10;
    write('Hang tram: ', a);
END.

- 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.