Question

закупі
Завдання 2. Порахуйте довжину огорожі такількість саджанців для круглої клумби, радіусякої вводить користувач.
годинаВизначте​

Answer 1

Ответ:

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.

Объяснение: