VCT về tính tiền. Giup mình với :<< Vd: tính tiền sách, vở 1 quyển sách : 3000đ vở: 5000đ

0 bình luận về “VCT về tính tiền. Giup mình với :<< Vd: tính tiền sách, vở 1 quyển sách : 3000đ vở: 5000đ”

1. uses crt;
   var s,v:longint;
   begin
   clrscr;
      write(‘So sach, vo: ‘);readln(s,v);
      writeln(‘Tien sach: ‘,s*3000,’d’);
      writeln(‘Tien vo: ‘,v*5000,’d’);
   readln;
   end.

   Bình luận

2. program Tinh_tien;

   uses Crt;

   var s,v, sls, slv, gts, gtv: integer;

   begin

            Clrscr;

            Writeln (‘Nhap so tien sach: ‘);

            Readln (s);

            Writeln (‘Nhap so luong sach: ‘);

            Readln (sls);

            Writeln (‘Nhap so tien vo=: ‘);

            Readln (v);

            Writeln (‘Nhap so luong vo: ‘);

            Readln (slv);

            gts := s*sls;

            gtv := v*slv;

            Writeln (‘So tien mua sach la: ‘, gts :0:2);

            Writeln (‘So tien mua sach la: ‘, gtv :0:2);

            Readln;

   end.

   Bình luận