Viết chương trình*** Tính tiền đi taxi từ số km đã đi được nhập vào, biết: -1km đầ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 được quy định. Giúp mình, mai mình kiểm tra Tin rồi hic T^T
1 câu trả lời
Var n:integer;
tien:real;
Begin
Write(‘Nhap so kilomet da di:’); Readln(n);
If n<1 the tien:=5000
Else IF n<=5 then tien:= 5000+(n-1)*4500
Else begin
Tien:=5000+4*4500+(n – 5)*3500;
If n>120 then tien:=tien*0.9;
End;
Writeln(‘So tien phai tra la:’, tien:0:2);
End.
Câu hỏi trong lớp
Xem thêm
