Viết chương trình tính tiền nước tiêu thụ trong tháng của gia đình em và in ra màn hình, biết rằng mỗi mét khối nước có giá là 2500đ, số lượng khối lượng trong tháng nhập từ bàn phím.
Giúp mình vs, nhanh nha mai mik phải nộp r. Hứa sẽ vote 5 sao+ctlhn nha
var n:longint;
begin
write(‘nhap so luong khoi nuoc ‘);readln(n);
write(n*2500);
readln
end.
uses crt;
var n,s:real;
begin
clrscr;
write (‘nhap so nuoc tieu thu: ‘); readln (n);
s:=25*n;
writeln (‘tong so tien: ‘,s:1:3);
readln;
end.