Bài 1:

Uses crt;

Var a:real;

Begin

Clrscr;

Write('a='); Readln(a);

Writeln('Chu vi hinh vuong:',a*4:5:2);

Writeln('Dien tich hinh vuong:',a*a:5:2);

Readln

End.

Bài 2:

Uses crt;

Var r:real;

Begin

Clrscr;

Write('r='); Readln(r);

Writeln('Nua chu vi cua hinh tron:',(r*2*3.14)/2:5:2);

Readln

End.

Câu 1:

Program bai_tap;

Uses crt;

Var a, Cv, S: real;

Begin 

Write ('Nhap canh a='); 

Readln (a);

Cv:= 4*a;

S:= a*a;

Writeln ('Chu vi hinh vuong la:', Cv:8:2);

Writeln ('Dien tich hinh vuong la:', S:8:2);

Readln

End.

Câu 2:

Program bai_tap;

Uses crt;

Var ncv, r : real;

Begin 

Writeln ('Nhap ban kinh r='); 

Readln (r);

ncv:= 2*r*3.14/2;

Writeln ('Nua chu vi cua hinh tron la:', ncv:8:2);

Readln

End.