Question

Elaborati un program Pascal care determina diferenta dintre aria unui cerc circumscris si a unui cerc inscris in patrat cu latura de 19 cm.

Answer 1

var r,m,a,s,d: real;
Begin
r:=(19*sqrt(2))/2;
m:=19/2;
a:=3.14*sqr(r);
s:=3.14*sqr(m);
d:=a-s;
writeln('Diferenta ariilor:',d);
End.