BTVN: Một cửa hàng cung cấp dịch vụ bán hàng thanh toán tại nhà. Khách hàng chỉ cần đăng kí số lượng mặt hàng cần mua, nhân viên cửa hàng sẽ giao hàng và nhận tiền thanh toán tại nhà khách hàng. Ngoài giá trị hàng hóa, khách hàng còn phải trả thêm phí dịch vụ. Hãy viết chương trình pascal để tính tiền thanh toán trong trường hợp khách hàng chỉ mua một mặt hàng duy nhất. Phí dịch vụ: 10.000, nếu khách hàng mua số tiền thanh toán >600.000₫ thì sẽ miễn phí dịch vụ. $\\$ Viết chương trình cho bài toán trên.

2 câu trả lời

program sach;

uses crt;
var a,b,t:real;
begin
clrscr;
write('nhap so luong hang can mua :');readln(a);
write('nhap don gia :');readln(b);
t := a*b;
if t >=600000 then writeln('so tien phai tra la :', t:8:2)
else writeln('so tien phai tra la :', t + t*5/100:8:2);
readln
end.

uses crt;
var a,b,t:real;
begin
clrscr;
write('nhap so luong hang can mua :');readln(a);
write('nhap don gia :');readln(b);
t := a*b;
if t >=600000 then writeln('so tien phai tra la :', t:8:2)
else writeln('so tien phai tra la :', t + t*5/100:8:2);
readln
end.

Câu hỏi trong lớp Xem thêm