Program baitap;

Uses crt;

Var a:real;

Begin

Clrscr;

Write('Hay nhap nhiet do theo nhiet do tai Viet Nam:');

Readln(a);

Writeln('Chuyen sang nhiet do My:', 9/5*(a+32):5:2);

Readln

End.

B6:

XĐBT: 

Inp:nhập độ C,F

Out:đổi độ C -->F,F-->C

Thuật toán: máy mk dgd lag ko gửi kèm ảnh đc sr bn nhé!

B1: nhập độ C, F

B2: C<-- 5/9( F - 32); F<-- 9/5( C + 32)

B3:Xuất kết quả ra màn hình

B4: Kết thúc

Vt chg trình:

uses crt;

var c,f:integer;

begin

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

f:=9/5(c+32);

writeln('Doi sang do F la:',f);

readln;

end.

nếu đổi từ độ F sang độ C thì bn chỉ cần thay độ C thành độ F, độ F về độ C, và thay phép tính thôi nhé!