Viết chương trình tình tiền thuê sách: Nhập;: số cuốn , số ngày, giá 1 ngày 15000đ Tính tiền = số ngày * số cuốn * . Nếu số ngày > 7 thì giảm 10000 ng

0 bình luận về “Viết chương trình tình tiền thuê sách: Nhập;: số cuốn , số ngày, giá 1 ngày 15000đ Tính tiền = số ngày * số cuốn * . Nếu số ngày > 7 thì giảm 10000 ng”

1. Program …;                  (thêm vào … số tiền )

   Uses Crt;

   Var s, n : integer;

   Begin

   Clrscr;

   Write(‘Nhap so cuon sach ban thue: ‘); Readln(s);

   Write(‘Nhap so ngay ban thue: ‘); Readln(n);

   tt := s*n*15000;

   if n>7then tt:=tt-10000;

   Writeln(‘Tong so tien la :’,tt);

   Readln; 

   End.

   Bình luận

2. Program SoTien;

   Uses Crt;

   Var s, n,tt : integer;

   Begin

   Clrscr;

   Write(‘Nhap so cuon sach ban thue: ‘); Readln(s);

   Write(‘Nhap so ngay ban thue: ‘); Readln(n);

   tt := s * n * 15000;

   if n > 7 then tt := tt -10000;

   Writeln(‘Tong so tien la : ‘ , tt);

   Readln; 

   End.

   Bình luận