Question

pascal Tính tiền đi taxi từ số km đã đi được nhập vào, biết:- 1 km đầu giá 5000đ.- Từ km thứ 2 – thứ 5: 4500 đ/km- Từ km thứ 6 trở đi: 3500 đ/km, đi hơn 120 km sẽ được giảm 10% trên tổng sốtiền theo quy định. (làm tròn 2 chữ số thập phân)

Answer 1

ai ho toi voi

 

Answer 2

uses crt;

var i,sokm:integer;

tong:real;

begin

write('nhap so km: ');readln(sokm);

for i:=1 to n do

begin

if i=1 then tong:=tong+5000;

else if tong>=2 and tong<=5 then  tong:=tong+4500;

else tong:=tong+3500;

end;

if sokm>120 then tong=(tong/10)*9;

writeln('so tien la ',tong,' dong');

readln;

end.

Answer 3

Var km:longint;

st:real;

Begin

write('Nhap vao so km da di ');readln(km);

if km = 1 then write('So tien la 5000');

if (km > 1) and (km<= 5) then write('So tien la ',5000+(km-1)*4500);

if (km >= 6) and (km <= 20) then write('So tien la ',5000 + 4*4500+(km-5)*3500)

if km>120 then

begin

st:=5000+4*4500+(km-5)*3500-0.1*(5000+4*4500+(km-5)*3500);

write(st:15:2);

end;

readln;

end.