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đ
1 câu trả lời
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.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
