phương và anh được phân công đi mua quà cho lớp nhân dịp 1/6. Hai em chọn mua vở với giá 8000đ/ quyển và bút bi với giá 3000đ/c. cửa hàng có khuyến mãi cứ mỗi 10000đ mua hàng được hoàn lại 1000đ em hãy viết chương trình tính số tiền 2 bạn phải trả khi mua m quyển vở , n bút bi
program az;
uses Crt;
var m,n,T,S : real;
begin
clrscr
Write(‘ so quyen vo da mua la :’); readln(m);
Write(‘ So cai but da mua la :’); readln(n);
T := m*8000 + n*3000;
S := T div 10000 ;
If (S = 0) then Write (‘Can thanh toan ‘,T);
If (S > 0) then T := T – (S*1000);
Write(‘Can thanh toan’,T);
readln
end.
readln
end.