giải bài tập pascal giúp mik vs
tính giá tiền taxi từ số km đã đi đc nhập vào biết
từ km 0 đến 5 đầu giá 15000 đ
từ km 5 đến 10 13000đ/km
từ km 10 đến 20 10000đ
từ km 21 đến 50 8000đ
giải bài tập pascal giúp mik vs tính giá tiền taxi từ số km đã đi đc nhập vào biết từ km 0 đến 5 đầu giá 15000 đ từ km 5 đến 10 13000đ/km từ km 10 đ
By Skylar
Program BTT;
Uses crt;
Var km,tt: longint;
Begin
Clrscr;
Write(‘Nhap so km: ‘); Readln(km);
If (km<=5) and (0<km) then tt:=km*15;
If (km>5) and (km<=10) then tt:=5*15+(km-5)*13;
If (km>10) and (km<=20) then tt:=5*15+5*13+(km-10)*10;
If (km>20) and (km<=50) then tt:=5*15+5*13+10*10+(km-20)*8;
tt:=tt*1000;
Write(‘So tien phai tra: ‘,tt);
Readln
End.