Написать программу которая вычисляет длину окружности и площадь круга. Радиус должен вводится с клавиатуры.

1

Ответы и объяснения

2013-06-26T20:53:05+04:00

var

  l,s,r:real;

begin

  write ('Radius: ');

  readln(r);

  s:=pi*r*r;

  l:=2*pi*r;

  writeln ('Dlina: ',l:0:4);

  writeln ('S: ',s:0:4);

  readln;

end.