program test;
const
N = 15; {Число саженцев на 1 кв.м.}
PI = 3.14; {Число Пи.}
var
R : real; {Радиус клумбы}
l : real; {Длина ограды}
S : real; {Площадь клумбы}
k : integer;{Число потребуемых саженцев}
begin
Write('Введите радиус клумбы (в метрах): ');
ReadLn(R);
{Вычисляем длину окружности}
l := 2 * PI * R;
{Вычисляем площадь клумбы}
S := Pi * R * R;
{Вычисляем число саженцев для посадки}
k := Round(Int( S * N ));
{Печатаем округленный до бл. целого результат}
WriteLn('Нужно ', k, ' саженцев.');
WriteLn('Длина ограды - ', l:3:2, ' метров')
end.
Объяснение:
