Ограничение времени 1 секунда
ограничение памяти 256mb
ввод стандартный ввод или input.txt
вывод стандартный вывод или output.txt
в некотором теплом регионе недавно была построена школа для одаренных детей альтаир. однако было возведено только одно здание в форме правильного круга диаметром d метров. руководство школы посчитало, что этого недостаточно для создания условий эффективной работы детей. поэтому приняли решения посадить вокруг школы деревья, причем так, чтобы выполнялись следующие условия: расстояние от стен школы до каждого дерева должно быть ровно a метров, а расстояние между деревьями должно быть одинаково, но не менее b метров, если считать по окружности. теперь руководству интересно, какое максимально количество деревьев можно посадить, соблюдая эти условия.

формат ввода
во входных данных записаны три натуральных числа a, b, d по одному в каждой строке соответственно. все числа не превосходят 108

формат вывода
выведите одно целое число — количество деревьев, которое нужно посадить вокруг школы.

pascal

Объяснение:

var

 i, j ,k: integer;

 l, lnew: string;

 a: array of integer;

begin

 Write('Введите число >> ');

 ReadLn(l);

 SetLength(a ,length(l));

 for i := 0 to length(l) - 1 do

   a[i] := strtoint(l[i + 1]);    

 for i := 0 to length(l) - 2 do

     for j := i + 1 to length(l) - 1 do

       if a[i] > a[j] then

       begin

         k := a[i];

         a[i] := a[j];

         a[j] := k;

       end;

  for i := 0 to length(l) - 1 do

   lnew := lnew + inttostr(a[i]);

 WriteLn('Новое число равно ', lnew);

end.

pascal

Объяснение:

var

 i, j ,k: integer;

 l, lnew: string;

 a: array of integer;

begin

 Write('Введите число >> ');

 ReadLn(l);

 SetLength(a ,length(l));

 for i := 0 to length(l) - 1 do

   a[i] := strtoint(l[i + 1]);    

 for i := 0 to length(l) - 2 do

     for j := i + 1 to length(l) - 1 do

       if a[i] > a[j] then

       begin

         k := a[i];

         a[i] := a[j];

         a[j] := k;

       end;

  for i := 0 to length(l) - 1 do

   lnew := lnew + inttostr(a[i]);

 WriteLn('Новое число равно ', lnew);

end.