Question

Elaborați un program ce conține o procedură care calculează aria cercului

Answer 1

const

pi=3.14;

var

l,S,r:real;

begin

read(r);

l:=2*pi*r;

S:=pi*r*r;

writeln(l,' ',S);

end.

calculeaza si lungimea btw