Viết chương trình QUẢN LÝ BÁN HÀNG học gồm: Tên hàng, số lượng, đơn giá, thành tiền. Nhập danh sách hàng hóa từ bàn phím, in ra màn hình danh sách hàng hóa, tính thành tiền, tính tổng tiền hàng đã bán, tìm kiếm tên mặt hàng nào đó.
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.
{ đơ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.
Anh ơi, anh nhầm khối rồi ạ nên anh chuyển lên lớp 12 hỏi chứ bọn em mới lớp 6 chx hiểu về mấy cái này nên anh thông cảm
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>=10;
a[1]:=10;
i:=1;
while i<=n do
begin
i:=i+1;
a[i]:=a[i-1]+2;
end;
dem:=0;
for i:=1 to n do
begin
write(a[i]:4);
dem:=dem+1;
if dem mod 10=0 then writeln;
end;
readln;
end.
Giả sử giá một quyển vở ban đầu là 100đ thì hạ còn bán: 80đ
Giả sử ban đầu định mua 100 quyển thì mất 100 x 100= 10000đ
Khi hạ mua được: 10000 : 80 = 125 quyển.
Số vở thêm 125 - 100 = 25 quyển
So với 100 quyển thì thêm được 25 quyển như vậy tăng thêm: 25%