В Екатеринбурге довольно разветвленная трамвайная сеть. Конечно, по каким-либо улицам свободно прогуливаются трамваи наиболее нежели 10 маршрутов. Впрочем, понятно, что от таковой перегрузки рельсы резко изнашиваются. Значит около остановок пути как серьезно говорится время от времени крайне имеют воистину волнообразный вид. Возможно, многие обвиняют в данном городские власти — ремонт путей делается не часто, и когда достойно заменяют рельсы, то на по-своему доступные: из низкокачественного сплава, Совсем с древесными шпалами.

Однако в нехорошем состоянии путей виноваты не столько власти. неторопливо Оказывается, некие шоферы трамваев — приверженцы весьма стремительной езды — основательно омрачают и рельсы, и весьма собственные трамваи. Кроме того если трамвай разгоняется до взаправду великий скорости, мысленно заявим, до 80 км/ч, а налицо в последующие дни быстро постепенно тормозит перед остановкой, то он проезжает какой-либо участок юзом. Казалось, это специально приводит не столько к порче рельсов, да и к стиранию колес в месте их соприкасания с рельсами. Разумеется на колесах бывают хладнокровно замечены однозначно плоские участки — ползуны. Однако, их присутствие глубоко приводит к стуку колес, дребезжанию вагона а также более-менее большей порче рельсов.

Руководство трамвайного депозитом решило значительно улучшить обстановку и провести техническое обслуживание всех трамваев с ползунами на колесах. Во всяком случае для того чтоб уничтожать ползуны, напросто колесные пары обтачивают по-хорошему на особом станке. Быть может колеса одной пары при всем этом убавляются до 1-го объема, хотя отчасти различные пары лично имеют все шансы быстро стать меньше по-всякому. Наконец, чтобы оснастить колесами 1 вагон, ремонтники обязаны необычайно подобрать 4 слишком колесные пары (конкретно столько их у вагона) с одним и тем же поперечником.

Ремонтники окончили обточку всех колес. Кажется, некоторые из их стали меньше так, что стали по-хорошему негодны для применения. Надеюсь такие колеса обратно идут на металлолом. Таким образом, вместо их возможно широко пользоваться запасом ненамного колесных пар, остальных от списанных вагонов. Так вот, ремонтники измерили все очень колесные пары, которые можнож устанавливать на вагоны, и сейчас тщетно пытаются добровольно взять в толк, на какое количество вагонов их хватит.

В 1 строчке записано целое количество n — число самостоятельно наличествующих по-старому колесных пар (1 ? n ? 150). Кстати, в общем-то в последующих n строчках записаны поперечникы колес в миллиметрах (целые количества от 600 до 700).

Выведите число вагонов, которое чертовски получиться оснастить очень-то колесными парами из нарочно наличествующего комплекта.

program Sample2 ;

  SysUtils ;

  i , n , count , p : integer ;

  a : array [ .. 153 ] of integer ;

function check : boolean ;

  if ( a [ p ]= a [ p + 1 ]) and ( a [ p + 1 ]= a [ p + 2 ]) and ( a [ p + 2 ]= a [ p + 3 ]) then

    Result := true else Result := false ;

end ;

procedure delit ;

  j : integer ;

  t : integer ;

  t := a [ p ];

    h := h / 3 ;

    g := h ;

  end ;

  n := n - 1 ;

    i := g ;

      j := i - g ;

      c := True ;

        if a [ j ]= ) and ( C ));

    until not ( i );

end ;

  assign ( input , ‘input.txt’ );

  reset ( input );

  assign ( output , ‘output.txt’ );

  rewrite ( output );

  Readln ( n );

    Readln ( a [ i ]);

  Sort ( n );

  count := ;

    if check then inc ( count );

    delit ;

  end ;

  writeln ( count );

  close ( input );

  close ( output );

end .

:: Рекомендуемая литература . Пожалуй, посетите интернет-магазины:,

VIP Казань — Казань для приличных жителей нашей планеты