Mik biết trả lời câu 2 thôi Program hinh_chu_nhat; Uses crt; Var a,b:integer; Writeln('hinh chu nhat'); Writeln('nhap a='); Readln(a); Writeln('nhap b='); Readln(b); Readln; End. Program chu_vi_va_dien_tich; Uses crt; Var a,b,s,p:integer; Begin Clrcsr; Writeln('chu vi va dien tich hinh chu nhat') Writeln('nhap a=') Readln(a); Writeln('nhap b=') Readln(b); P:=(a+b)*2; S:=a*b; Writeln('chu vi hinh chu nhat la',P); Readln; Writeln('dien tich chu nhat la',S); Readln; End

Bài 1:

- Khai báo biến;

- Khai báo hằng;

- Gán biến thongbao ← Tong so tien phai thanh toan: ;

- Ghi chú cho người mới bắt đầu;

- In ra màn hình Don gia: và chờ người dung nhập giá trị cho biến dongia ;

- In ra màn hình So luong: và chờ người dùng nhập giá trị cho biến soluong ;

- Gán thanhtien ← so luong*dongia+phi ;

- In ra màn hình giá trị của biến thongbao và thanhtien, giá trị biến thanhtien cánh giá trị biến thongbao 10 khoảng trắng và lấy đến chữ số thập phân thứ 2.

Bài 2:

program chu_nhat;

uses crt;

var a,b,S,cv:real;

Begin

       clrscr;

       write('a = '); readln(a);

       write('b = '); readln(b);

       cv:=(a+b)*2;

       S:=a*b;

       writeln('Chu vi hinh chu nhat = ',cv:2:2);

       writeln('Dien tich hinh chu nhat = ',S:2:2);

       readln

End.