Question

Mọi người ơi giúp em với ạ

Viết chương trình nhập vào đơn giá một mặt hàng và số lượng bán của mặt hang

tính tiền khách phải trả,với thông tin như sau:

- Thành tiền: đơn giá* số lượng

- Giảm giá: nếu thành tiền > 100, thì giảm 3 % thành tiền, ngược lại không giảm

- Tổng tiền phải trả : thành tiền - giảm giá

Answer 1

uses crt;

var mh,sl,tt:longint;

begin

clrscr;

write('Nhap don gia cua mat hang:'); readln(mh);

write('Nhap so luong cua mat hang ',mh,':'); readln(sl);

tt:=sl*mh;

if tt>100 then writeln('So tien phai tra la: ',tt*97/100:4:2)

else writeln('So tien phai tra la: ',tt);

readln;

end.