Câu 4:

Program bai4;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap a va b:'); Readln(a,b);

If a>b then Writeln('Thuong cua a va b:', a div b)

           else Writeln('Thuong cua a va b:', b div a);

Readln

End.

Câu 5:

Program bai5;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap a va b:'); Readln(a,b);

Writeln('Tong cua a va b:',a+b);

Writeln('Tich cua a va b:',a*b);

If a>b then Writeln('Hieu cua a va b:', a-b)

           else Writeln('Hieu cua a va b:', b-a);

If a>b then Writeln('Thuong cua a va b:', a div b)

           else Writeln('Thuong cua a va b:', b div a);

Readln

End.

Câu 6:

Program bai5;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Nhap chieu dai va chieu rong:'); 

Readln(a,b);

Writeln('Chu vi cua hinh chu nhat:',2*(a+b));

Writeln('Dien tich cua hinh chu nhat:',a*b);

Readln

End.

Bài 4: 

program bai4;

Uses crt;

Var

         a,b:real;

Begin

          Clrscr;

          write('Nhap a: '); readln(a);

          write('Nhap b: '); readln(b);

          write('Thuong cua a va b la: ',a/b:5:2);

          Readln;

End.

Bài 5: 

program bai5;

uses crt;

Var

        a,b:real;

Begin

        clrscr;

        write('Nhap a: '); readln(a);

        write('Nhap b: '); readln(b);

        writeln('Tong la: ',a+b:5:1);

        writeln('Hieu la: ',a-b:5:1);

        writeln('Tich la: ',a*b:5:1);

        write('Thuong la: ',a/b:5:1);

        readln;

End.

Bài 6:

program bai6;

Uses crt;

var

         A,b:integer;

Begin

        write('Nhap chieu dai: '); readln(a);

        write('Nhap chieu rong: '); readln(b);

        writeln('Chu vi la: ',(a+b)*);

        write('Dien tich la: ',a*b);

        readln;

end.

#HN

#Chuc_em_hoc_tot