Viết chương trình tính tiền bán hàng trong ngày của cửa hàng tạp hoá biết Giá giấy A4:65.000 Giá bút:15.000 Số lượng giấy bút bán được nhập từ bàn phí

0 bình luận về “Viết chương trình tính tiền bán hàng trong ngày của cửa hàng tạp hoá biết Giá giấy A4:65.000 Giá bút:15.000 Số lượng giấy bút bán được nhập từ bàn phí”

1. uses crt;
   var      g,b : integer;
   begin clrscr;
   write(‘Nhap so giay ban duoc :’); readln(g);
   write(‘Nhap so but ban duoc :’); readln(b);
   write(‘Tong tien ban duoc la :’,g*65.000+b*15.000);
   readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var giay,but,slgiay,slbut: longint;
   begin
       clrscr;
       write(‘Nhap so luong but da ban: ‘); readln(slbut);
       write(‘Nhap so luong giay da ban: ‘); readln(slgiay);
       giay:=45000;
       but:=15000;
       writeln(‘So tien ban hang: ‘,(slgiay*giay)+(slbut*but),’ dong’);
       readln;
   end.

   Bình luận