Tính tiền đi Taxi khi biết số km đã đi và đơn giá như sau: - 1 km đầu tiên: 20000 đ/km - 5 km kế tiếp: 15000 đ/km - Từ km 7 trở đi: 12000 đ/km - Nếu đi trên 50 km thì giảm 5% trên tổng số tiền phải trả
1 câu trả lời
uses crt;
var sokm: integer; sotpt: real;
begin
clrscr;
write('Nhap so km da di: ');
readln(sokm);
if (sokm = 1) then
sotpt:=20000
else
if (sokm <= 6) then
sotpt:=20000+(sokm-1)*15000
else
sotpt:=20000+5*15000+(sokm-6)*12000;
if (sokm>50) then sotpt:=sotpt-(sotpt/100*5);
write('So tien phai tra: ',sotpt:0:0);
readln
end.
