ai bày mình cách tính tiền thanh toán khi mua 2 mặt hàng trong pascal với ạ
1.máy bơm nước:
đơn giá :650000đ
phí:100000đ
2.quạt điện:
đơn giá:120000đ
phí:60000đ
giúp mình với ạ
mình cần gấp
ai bày mình cách tính tiền thanh toán khi mua 2 mặt hàng trong pascal với ạ
1.máy bơm nước:
đơn giá :650000đ
phí:100000đ
2.quạt điện:
đơn giá:120000đ
phí:60000đ
giúp mình với ạ
mình cần gấp
program tinh_tien;
uses crt;
var d,m,s,t:integer;
begin
clrscr;
write(‘Nhap don gia la d’);readln(d);
write(‘Nhap so luong la m’);readln(m);
s:=d*m;
t:=s*10%;
s:=s+t;
writeln(‘So tien phai tra:’,s);
readln ;
end .
@chúcbạnhọctốt@