Bài tập thực tế về tính chu vi hình chữ nhật

Code:

uses crt;

var a,b,cv:integer;

begin

clrscr;

write('a,b:');readln(a,b);

cv:=(a+b)*2;

writeln('chuvihinhchunhat:',cv);

readln;

end.

Ta áp dụng thực tế là tính diện tích mảnh đất,...

* Đề :

- Một quyển sách giá 18000 đ, một cây bút bi giá 3000 đ, nếu tổng số tiền mua lớn hơn hoặc bằng 100000 đ thì sẽ được giảm 10%, ngược lại không giảm. Biết số lượng quyển sách và bút bi được nhập từ bàn phím, hãy tính số tiền cần trả ?

* Viết chương trình :

uses crt;

var a, b, t : longint;

begin

clrscr;

write('nhap so luong sach :');readln(a);

write('nhap so luong but bi :');readln(b);

t := a * 18000 + b * 3000;

if t >= 100000 then writeln('so tien can tra :', (t * 0.9):3:0)

else writeln('so tien can tra :', t);

readln

end.