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:

0 bình luận về “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:”

1. 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.

   Bình luận