Vì tình hình dịch bệnh đang diễn biến phức tạp nên nhiều gia đình có kinh tế khó khăn nay lại càng khó khăn hơn. Một cửa hàng bán Sách có chương trình giảm giá để góp một phần giúp đỡ gia đình học sinh. Chương trình giảm giá như sau: Nếu khách hàng mua từ 150.000đ trở lên được giảm 40% tổng số tiền, nếu khách mua dưới 150.000 thì giảm 20% tổng số tiền. Em hãy viết chương trình nhập vào số tiền khách hàng đã mua sách để giúp cửa hàng in số tiền khách phải trả sau khi giảm giá.

2 câu trả lời

Program baitap;

Uses crt;

Var A:longint;

      T:extended;

Begin

Clrscr;

Write('So tien khach hang da mua sach:');

Readln(a);

If a>=150000 then T:=(a/100)*60

                       Else T:=(a/100)*80;

Writeln('So tien phai tra:',T:9:2,' (dong)');

Readln

End.

Mình gửi đáp án:

Var n:real;
 Begin
  Readln(n);
  If n>=150000 then Write(n- (n*40/100):0:2)
   Else  Write(n - ( n*20/100):0:2);
  Readln;
 End.