viết chương trình tính thành tiền của m cây kẹo và n cái bánh, giá 1000(1/cây) và 5000(1/cái)
1 câu trả lời
Program tinhtien;
Uses crt;
Var m,n:integer;
Begin
Write('So cay keo ma ban mua la:'); Readln(m);
Write('So cai banh ma ban mua la:'); Readln(n);
Writeln('So tien phai tra la: ', 1000*m+5000*n);
Readln
End.