Viết chương trình tính tiền mua bút , số lượng là 30 cây bút và giá mỗi cây là 3 ngàn

0 bình luận về “Viết chương trình tính tiền mua bút , số lượng là 30 cây bút và giá mỗi cây là 3 ngàn”

1. Program tinh_tien;

   Uses crt;

   Var M: integer;

   Begin

   M:= 3*30;

   Writeln (‘Tien mua 30 cay but la:’ , M,’ ngan’);

   Readln 

   End.

   Bình luận

2. uses crt;

     var gia1cay, sluong, thanhtien: integer;

   begin

     clrscr;

     gia1cay:=3;

     sluong:=30;

     thanhtien:=gia1cay*sluong;

     writeln(‘Tien mua but het: ‘, thanhtien, ‘(ngan)’);

     readln

   end.

   Bình luận