một hiệu sách thực hiện đợt khuyến mãi lớn với nội dung như sau : nếu mua sách với tổng số tiền lớn nhất 100.000 đồng,khách hàng sẽ được giảm 30% tổng số tiền phải thanh toán.Nếu mua sách với tổng số tiền không đến 100.000 đồng.Khách hàng sẽ được giảm 10% số tiền đồng.khách hàng sẽ được giảm 10% tổng số tiền phải thanh toán.Hãy mô tả hoạt động tính tiền cho khách.
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var tien:real;
begin
clrscr;
repeat
write('Nhap so tien:'); readln(tien);
until tien>0;
if tien>=100000 then writeln(tien*70/100:4:2)
else writeln(tien*90/10:4:2);
readln;
end.
uses crt;
var tien:real;
begin
clrscr;
repeat
write('Nhap so tien:'); readln(tien);
until tien>0;
if tien>=100000 then writeln(tien*70/100:4:2)
else writeln(tien*90/10:4:2);
readln;
end.
Dạ cho mình hỏi chỗ này xíu, đoạn "(tien*70/100:4:2)" có chữ 4:2 nghĩa là gì ạ?
T = 100 nghìn thì không tính được số tiền phải trả ở cả 2 trường hợp đâu em!
Xem lại đề đi!
{ đơn giá: a, số lượng: b}
uses crt;
var a,b,s,thanhtoan:integer;
begin
write('nhap gia don hang:');
read(a);
write('nhap so luong hang:');
s:=0;
thanhtoan:=0;
s:=a*b;
if s>100 then thanhtoan:= s*(30/100)
else thanhtoan:= s* (10/100);
write(' so tien can thanh toan la:',' ',thanhtoan);
readln;
end.
program az;
uses Crt;
var n : real;
begin
clrscr;
Write('Nhap so tien thanh toan luc dau : '); readln(n);
If (n >= 100000) then n := (70*n)/100 else n := (90*n)/100;
Write('So tien can thanh toan la : ',n);
readln
end
Mình học từ hồi lớp 8 r