📢Mọi người ơi giúp mik với ạ. Mik đang cần gấp, sắp kiểm tra ạ. Cảm ơn trước ạ❤️
Viết chương trình tính tiền đi taxi. Biết: nhập vào số km. Tiền được tính như sau: từ km thứ 11 trở đi số tiền phải trả là 6000/km, dưới 11km số tiền phải trả là 7000/km.
Mik giải đúng ko ạ? Bạn nào xem hộ mik với🙏
Program tinhtientaxi;
Uses crt;
Var x:integer;
Begin
Clrscr
Write('hay nhap so km:');
Readln(x);
If x>= 11 then write(x*6000)
Else write(x*7000);
Readln;
End.