1. a)viết phần khai báo cho bài toán tính chu vi và diện tích hình tròn. b) bài toán trên cần bao nhiêu byte? Giúp mình với ạ

BÀI LÀM 

a) Program BTT;
Uses crt;
Var r,s,p: real;
Const Pi=3.14;
Begin
        Clrscr;
        Write('Nhap r: '); Readln(r);
        p:=2*r*pi;
        s:=sqr(r)*pi;
        Write('Dien tich la ',s:0:2,' va chu vi la ',p:0:2);
        Readln
End.

Bài 2:

Program DTCVHINHTRON;
Uses crt;
Var a,s,p: real;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        p:=a*4;
        s:=sqr(a);
        Write('Dien tich la ',s:0:2,' va chu vi la ',p:0:2);
        Readln
End.

Sau khi nhập xong ấn ctrl F9 để chạy chương trình 

B) bài toán trên cần 1 byte

- CV = 2 * pi * r 

- DT = r * r * pi

- pi có giá trị là hằng cố định 

- Các biến sử dụng : CV, DT, r

- Vì pi là số thực nên CV và DT cũng là số thực

- Khai báo : Var r, DT, CV : real;

⇒ 1 biến kiểu real cần 6 byte

⇒ 3 biến kiểu real cần 18 byte

⇒ Bài toán cần 18 byte