Đọc vào từ bàn phím nhiệt độ của ngày hôm nay (t) để chọn loại giải trí thích hợp: + Nếu (t < 20) thì “Troi lanh, ban nen o nha coi TV” + Nếu (t >= 20) và (t < 25) thì “Troi mat me, ban nen đi cam trai” + Nếu (t >= 25) và (t < 30) thì “Troi hoi nong, ban nen di tam bien My Khe” + Nếu (t >= 30) thì “Troi nong, ban nen di nghi mat o Da Lat”
2 câu trả lời
Program Do_nhiet_do;
Uses crt;
Var t:Real;
Begin
Clrscr;
Write('Hay nhap nhiet do hom nay: '); readln(t);
If t<20 then writeln('Troi lanh, ban nen o nha coi TV') else
If (t>=20) and (t<25) then writeln('Troi mat me, ban nen đi cam trai') else
If (t>=25) and (t<30) then writeln('Troi hoi nong, ban nen di tam bien My Khe') else
If t>=30 then writeln('Troi nong, ban nen di nghi mat o Da Lat');
Readln;
End.
Program Do_nhiet_do;
Uses crt;
Var t:Real;
Begin
Clrscr;
Write('Hay nhap nhiet do hom nay: '); readln(t);
If t<20 then writeln('Troi lanh, ban nen o nha coi TV') else
If (t>=20) and (t<25) then writeln('Troi mat me, ban nen đi cam trai') else
If (t>=25) and (t<30) then writeln('Troi hoi nong, ban nen di tam bien My Khe') else
If t>=30 then writeln('Troi nong, ban nen di nghi mat o Da Lat');
Readln;
End.
