VCT về tính tiền. Giup mình với :<< Vd: tính tiền sách, vở 1 quyển sách : 3000đ vở: 5000đ
VCT về tính tiền. Giup mình với :<< Vd: tính tiền sách, vở 1 quyển sách : 3000đ vở: 5000đ
By Eva
By Eva
VCT về tính tiền. Giup mình với :<< Vd: tính tiền sách, vở 1 quyển sách : 3000đ vở: 5000đ
uses crt;
var s,v:longint;
begin
clrscr;
write(‘So sach, vo: ‘);readln(s,v);
writeln(‘Tien sach: ‘,s*3000,’d’);
writeln(‘Tien vo: ‘,v*5000,’d’);
readln;
end.
program Tinh_tien;
uses Crt;
var s,v, sls, slv, gts, gtv: integer;
begin
Clrscr;
Writeln (‘Nhap so tien sach: ‘);
Readln (s);
Writeln (‘Nhap so luong sach: ‘);
Readln (sls);
Writeln (‘Nhap so tien vo=: ‘);
Readln (v);
Writeln (‘Nhap so luong vo: ‘);
Readln (slv);
gts := s*sls;
gtv := v*slv;
Writeln (‘So tien mua sach la: ‘, gts :0:2);
Writeln (‘So tien mua sach la: ‘, gtv :0:2);
Readln;
end.