Câu 2: Viết chương trình tính tích 2 số nguyên được nhập từ bàn phím. Câu 3: Viết chương trình tính chu vi P, diện tích S của hình vuông, biết độ dài cạnh a = 8. In kết quả ra màn hình. Câu 4: Viết chương trình tính trung bình cộng của ba số. (Cho biết: ba số đó là a,b,c được nhập từ bàn phím). Câu 5: Viết chương trình tính tiền hóa đơn mua một món hàng, biết phí ship của hóa đơn là 10.000đ và công thức tính tiền là: Thành tiền = đơn giá * số lượng + phí dịch vụ Câu 6: An và Bình được phân công đi mua quà cho lớp nhân dịp tết Trung thu. Hai bạn chọn mua vở với giá 5000 đồng/ quyển và bút bi với giá 3000 đồng/ cây. Em hãy viết chương trình tính số tiền 2 bạn phải trả khi mua x quyển vở và y cây bút bi.(số lượng quyển vở là x, số lượng bút bi là y được nhập từ bàn phím). Giải giúp mình mình cần gấp cảm ơn nhiều

2.

program ct2;
uses crt;
var a,b:integer;
begin
  clrscr;
  writeln ('Nhap a, b '); readln(a,b);
  writeln ('Tich cua a va b la: ',a*b);
  readln;
end.

3.

program ct3;
uses crt;
var a,b:integer;
    P,S:Qword;
begin
  clrscr;
  writeln ('Nhap chieu dai, chieu rong cua HCN (cm): '); readln(a,b);
  P:=(a+b)*2;S:=a*b;
  writeln ('Chu vi HCN la: ',P,'cm'); writeln('Dien tich HCN la: ',S,'cm2');
  readln;
end.

4.

program ct4;
uses crt;
var a,b,c:integer;
begin
  clrscr;
  writeln ('Nhap a,b,c: '); readln(a,b,c);
  writeln ('Trung binh cong cua a, b, c, la: ',(a+b+c)/3:5:2); 
  readln;
end.

5.

program ct5;
uses crt;
var soluong,DonGia,phiDV: Qword;
begin
    clrscr;
    writeln('Nhap so luong mat hang (VNĐ):'); readln(soluong);
    writeln('Nhap don gia mat hang (VNĐ):'); readln(DonGia);
    phiDV:=10000;
    writeln('Thanh tien la: ',soluong*DonGia+phiDV,'đ');
    readln;
end.

6.

program ct6;
uses crt;
var x,y: Qword;
begin
    clrscr;
    writeln('Nhap so luong quyen vo can mua:'); readln(x);
    writeln('Nhap so luong but can mua:'); readln(y);
    writeln('Tong tien la: ',x*5000+y*3000,'đ');
    readln;
end.

_________

#Duahauvn

#HocTot

#ThiTot