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.