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