viết chương trình với điều kiện .Nếu tổng tiền lớn hơn hoặc bằng 1000000 thì được giảm 10% ngược lại được giảm 5% .Tỏng tiền bằng số lượng X đơn giá .

0 bình luận về “viết chương trình với điều kiện .Nếu tổng tiền lớn hơn hoặc bằng 1000000 thì được giảm 10% ngược lại được giảm 5% .Tỏng tiền bằng số lượng X đơn giá .”

1. uses crt;

   var n,s,dongia,sl:real;

   begin

   clrscr;

   write(‘Nhap don gia: ‘);readln(dongia);

   write(‘Nhap so luong: ‘);readln(sl);

   n:=dongia*sl;

   if n<=1000000 then s:=n/100*95 else begin

   s:=1000000/100*95;

   n:=n-1000000;

   s:=s+(n/100*90);

   end;

   writeln(‘Tong tien: ‘,s:1:0);

   readln

   end.

   Trả lời