Câu 2 :

Var P, S : real;

      R : integer;

Tổng bộ nhớ cấp phát : 2 biến kiểu real : 2 x 6 = 12 byte, 1 biến kiểu integer :  2 byte  => Tổng : 14 byte

* vì bán kính R được cho trước là số nguyên dương ta khai báo kiểu integer;

* chu vi, diện tích hình ròn có chứa $\pi$ là số thực => S, P cũng là số thực, khai báo kiểu real;

Câu 3 :

* a và ha là số nguyên dương =>kiểu integer;

* công thức tính diện tích tam giác : S := 0.5 * a * ha , thuộc kiểu số thực vd : a = 7, ha = 5 => S := 0.5 * 7 * 5 = 17.5 => kiếu số thực

var a, ha : integer;

      s : real;

* tổng bộ nhớ : 4 + 6 = 10 byte

+ 2 biến integer : 2 * 2 = 4 byte;

+ 1 biến real : 6 byte;

Source Code Tính Chu Vi Và Diện Tích Hình Tròn 

import math
while True:
    try:
        s = float(input("Nhập Bán Kính Hình Tròn: "))
        chuvi = 2*math.pi*s
        dientichduongtron = s**2
        dientich = s**2*math.pi
        duongkinh = 2*s
        print("")
        print("Đường Kính =", duongkinh)
        print("Chu Vi =", chuvi)
        print("Diện Tích =", dientich)
        print("Diện Tích Đường Tròn =", dientichduongtron)
        print("")  
    except:
        print("Lỗi Cú Pháp ")
        print('Vui Lòng Kiểm Tra Lại')
        print("Xin Cảm Ơn !!!\n")
        break
Câu 2:

Source Code Tính Chu Vi Và Diện Tích Hình Tam Giác 

gach="--------------------------------------------------"
print("CHƯƠNG TRÌNH XÁC ĐỊNH TAM GIÁC VÀ TÍNH CHU VI, DIỆN TÍCH")

print (gach)
a=float(input("Nhập vào cạnh a: "))
b=float(input("Nhập vào cạnh b: "))
c=float(input("Nhập vào cạnh c: "))

if (a+b>c) & (b+c>a) & (a+c>b) & (a>0) & (b>0) & (c>0):
    if (a==b)&(b==c):
        print ("\nĐây là tam giác đều")
    elif (a==b)& (a!=c) | (a==c)&(a!=b) | (b==c) & (b!=a):
            print ("\nĐây là tam giác cân")
    elif (a*a==b*b+c*c)|(b*b==a*a+c*c)|(c*c==a*a+b*b):
            print("\nĐây là tam giác vuông")
    else:
        print("\nĐây là tam giác thường")
    import math
    cv=a+b+c
    p=cv/2
    dt=math.sqrt(p*(p-a)*(p-b)*(p-c))
    print ("\nChu vi tam giác: ",round(cv,2))
    print ("Diện tích tam giác: ",round(dt,2))
else:
        print ("\nKhông Tạo Thành Tam Giác")
print (gach)
print ("Thank You ")