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 tiêu, tiền mạng.
Giá điện = 15000/1KW.
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 tiêu, tiền mạng.
Giá điện = 15000/1KW.
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.
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!