viết chương trình với điều kiện .Nếu tổng tiền lớn hơn hoặc bằng 1000000 thì được giảm 10% ngược lại được giảm 5% .Tỏng tiền bằng số lượng X đơn giá .Dơn giá và số lượng được nhập từ bàn phím vào
viết chương trình với điều kiện .Nếu tổng tiền lớn hơn hoặc bằng 1000000 thì được giảm 10% ngược lại được giảm 5% .Tỏng tiền bằng số lượng X đơn giá .
By Ivy
uses crt;
var n,s,dongia,sl:real;
begin
clrscr;
write(‘Nhap don gia: ‘);readln(dongia);
write(‘Nhap so luong: ‘);readln(sl);
n:=dongia*sl;
if n<=1000000 then s:=n/100*95 else begin
s:=1000000/100*95;
n:=n-1000000;
s:=s+(n/100*90);
end;
writeln(‘Tong tien: ‘,s:1:0);
readln
end.