[kaituk]

В одной компьютерной игре игрок выставляет в линию шарики разных цветов. Когда образуется непрерывная цепочка из трех и более шариков одного цвета, она удаляется из линии. Все шарики при этом сдвигаются друг к другу, и ситуация может повториться.

Напишите программу, которая по данной ситуации определяет, сколько шариков будет сейчас уничтожено. Естественно, непрерывных цепочек из трех и более одноцветных шаров в начальный может быть не более одной.


Формат входного файла

Даны количество шариков в цепочке (не более 1000) и цвета шариков (от 0 до 9, каждому цвету соответствует свое целое число).


Формат выходного файла

Требуется вывести количество шариков, которое будет уничтожено.


Задача с сайта informatics.mccme.ru
Номер задачи №1461
Решать не надо, просто попрошу опытных людей дать пару наводок на её решение))

[NumLock]

из TList удобней удалять, само сдвигаться будет.

[kaituk]

я тебя не понял))
мне надо на Delphi её решить))

[M.A.D.M.A.N.]

Гугли, гад, гугли...

[kaituk]

мне готовое решение не нужно...

[Aristarh Dark]

Полазил по сайту с задачами... "Шарики" - хоть адекватная.
111878 вот эта вообще на мой вгляд решения не имеет.
10372 вот тож прикольная Решение:

Код:

trunc(sqrt(min(a1,a2)+min(a3,a4)))

[NumLock]

Сообщение от kaituk

мне надо на Delphi её решить))

это на Delphi

[kaituk]

Сообщение от NumLock

это на Delphi

решать только в consolle aplication))

[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  Classes,
  SysUtils;

var
  l: TList;