Câu 1:
Uses crt;
Var r, s, p: integer;
Const pi=3.14;
Begin
Clrscr;
Write('Nhap ban kinh r: '); readln(r);
s:=pi*sqr(r);
p:=2*r*pi;
Writeln('Dien tich la: ',s:7:2);
Writeln('Chu vi la: ',p:7:2);
Readln
End.
Câu 2:
Uses crt;
Var a, b, s, p: real;
Begin
Clrscr;
Write('Nhap chieu dai a = '); readln(a);
Write('Nhap chieu rong b = '); readln(b);
s:=a*b;
p:=(a+b)*2;
Writeln('Chu vi la: ',p:8:2);
Writeln('Dien tich la: ',s:8:2);
Readln
End.