Program baitap;

Uses crt;

Var km:integer;

      T:extended;

Begin

Clrscr;

Write('So km:'); Readln(km);

If km<=1 then T:=km*5000;

If (km>=2) and (km<=5) then T:=km*4500;

If (km>=6) and (km<=120) then T:=km*3500;

If km>120 then T:=(km*3500)-(km*3500)/10;

Writeln('So tien can tra:',T:9:2);

Readln

End.

uses crt;

var t, km : real;

begin

clrscr;

write('nhap so km da di : ');

readln(km);

if km <= 1 then t := km * 5000;

if (km >= 2) and (km <= 5) then t := 5000 + (km - 1) * 4500;

if km >= 6 then t := 5000 + 4 * 4500 + (km - 5) * 3500;

if km > 120 then t := t * 0.9;

writeln('so tien tra : ', t:2:0);

readln

end.

* Ví dụ :

nhap so km da di : 9

so tien tra : 37000

+ 1 km đầu : 5000đ ⇒ còn 8 km

+ từ 2 km đến 5 km : 4 * 4500 = 18000 ⇒ còn 4 km

+ km thứ 6 trở đi : 4 * 3500 = 14000

+ tổng số km là 9 bé hơn 120 ⇒ không giảm tiền

⇒ Tổng tiền trả : 5000 + 18000 + 14000 = 37000đ