Question

Fie r un număr real citit de la tastatură, care reprezintă lungimea razei unui cerc. Să se scrie un program care să calculeze și să afișeze aria și perimetrul discului de rază r. DOAR IN PASCAL

Answer 1

var

r: real;

const

PI = 3.141592654;

begin

   readln(r);

   writeln(PI*r*r);

   writeln(2*PI*r);

end.