một siêu thực hiện đợt khuyến mãi với nội dung sau : nếu khách hàng mua với tổng số tiền tờ 100 nghìn đồng trở lên thì khách sẽ được giảm 20% tổng số tiền phải thanh toán . Còn nếu khách hàng mua với tổng số tiền không đến 100 nghìn đồng thì khách hàng sẽ được giảm 10% tổng số tiền phati thanh toán . Hãy viết chương trình tính tiền cho khách hàng
uses crt;
var n,s:real;
begin
clrscr;
write(‘Nhap tong so tien: ‘);readln(n);
if n<=100 then s:=n/100*90 else begin
s:=90;
n:=n-100;
s:=s+n/100*80;
end;
writeln(‘Tong so tien phai tra: ‘,s:1:2);
readln
end.