PROGRAM Tinh_tien;
USES crt;
VAR
soluong: INTEGER;
dongia, thanhtien: REAL;
thongbao: STRING;
CONST phi=10000;
BEGIN
clrscr;
thongbao:='Tong so tien phai thanh toan :';
{Nhap don gia va so luong hang}
write('Don gia='); readln(dongia);
write('So luong='); readln(soluong);
thanhtien:= soluong*dongia+phi;
(*IN ra so tien phai tra*)
writeln(thongbao,thanhtien:10:2);
readln
END.
Download: http://www.mediafire.com/?z07hvz1tvhj2p1n
USES crt;
VAR
soluong: INTEGER;
dongia, thanhtien: REAL;
thongbao: STRING;
CONST phi=10000;
BEGIN
clrscr;
thongbao:='Tong so tien phai thanh toan :';
{Nhap don gia va so luong hang}
write('Don gia='); readln(dongia);
write('So luong='); readln(soluong);
thanhtien:= soluong*dongia+phi;
(*IN ra so tien phai tra*)
writeln(thongbao,thanhtien:10:2);
readln
END.
Download: http://www.mediafire.com/?z07hvz1tvhj2p1n