Viết chương trình tính tiền chi tiêu trong tháng của gia đình em. Biết: Nhập số lượng điện tiêu thụ trong tháng. Nhập tiền học của con, nhập tiền chi

0 bình luận về “Viết chương trình tính tiền chi tiêu trong tháng của gia đình em. Biết: Nhập số lượng điện tiêu thụ trong tháng. Nhập tiền học của con, nhập tiền chi”

1. program tien;

   uses crt;

   var d,h,m,ct,t:longint;

   begin

   clrscr;

   write(‘Nhap luong dien tieu thu: ‘);

   readln(d);

   write(‘Nhap tien hoc: ‘);

   readln(h);

   write(‘Nhap tien chi tieu: ‘);

   readln(ct);

   write(‘Nhap tien mang: ‘);

   readln(m);

   d:=d*15000;

   t:=d+h+ct+m;

   write(‘Tien chi tieu trong 1 thang qua la: ‘,t);

   readln

   end.

   Trả lời

2. program tienchitieu;
   uses crt;
   var ttct,th,tm,tct,kd,td:longint;
   BEGIN
   clrscr;
   Write(‘Nhap tien chi tieu: ‘);readln(tct);
   Write(‘Nhap tien hoc: ‘);readln(th);
   Write(‘Nhap tien mang: ‘);readln(tm);
   Write(‘Nhap so kW dien tieu thu trong thang: ‘);readln(kd);
   td:=kd*15000;
   ttct:=th+tm+tct+td;
   Writeln(‘Tong so tien da chi tieu trong thang la: ‘,ttct,’vnd’);
   readln
   END.

   Cho mình xin hay nhất nhé, cảm ơn nhiều!

   Trả lời