Câu 1:

Program cau1;

Uses crt;

Var

         A,b,c:integer;

Begin

        Clrscr;

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

        write('3 so a, b, c lan luot la: ',a,', ',b,', ',c);

        Readln;

End.

Câu 2:

Program cau2;

Uses crt;

Var

       a,b:integer;

Begin

         Clrscr;

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

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

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

         write('Hieu cua a va b la: ',a-b);

         Readln;

End.

Câu 3:

Program cau3;

Uses crt;

Var

         a,b:integer;

Begin

          Clrscr;

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

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

          write('Ket qua la: ',(a+b)/3:5:2);

          Readln;

End.

Câu 4:

Program cau4;

Uses crt;

Var

         Dai,rong:integer;

begin

         Clrscr;

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

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

         writeln('Chu vi hinh chu nhat la: ',(dai+rong)*2);

         write('Dien tich hinh chu nhat la: ',dai*rong);

         Readln;

End.

Câu 5:

Program cau5;

Uses crt;

Var

           A:integer;

Begin

          Clrscr;

           write('Nhap canh hinh vuong: '); readln(a);

           writeln('Chu vi hinh vuong la: ',a*4);

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

           Readln;

End.

#HN

#Chuc_em_hoc_tot

Câu 1:

a=int(input('nhập số a:'))
b=int(input('nhập số b:'))
print(a)
print(b)

Câu 2:

a=int(input('nhập số a:'))
b=int(input('nhập số b:'))
tổng=a+b
print(tổng)
if a>b:
    hiệu=a-b
else:
    hiệu=b-a
print(hiệu)

Câu 3:

a=int(input('nhập số a:'))
b=int(input('nhập số b:'))
c=(a+b)/3
print(c)

Câu 4:

a=int(input('nhập chiều dài:'))
b=int(input('nhập chiều rộng:'))
s=a*b
c=(a+b)*2
print(f'diện tích hình chữ nhật là: {s}')
print(f'chu vi hình chữ nhật là: {c}')

Câu 5:

a=int(input('nhập độ dài cạnh của hình vuông:'))
s=a*a
c=a*4
print(f'diện tích hình vuông là: {s}')
print(f'chu vi hình vuông là: {c}')