zadacha po ACM

[Diploboy]

Da, ya uje ubral eti stroki, no SERVER govotir chto OTVET LOJNIY!!!

[SergeyS]

К сожалению мне нужно убегать домой (я на работе юзаю инет) и соответственно привести решение задачи не могу, но глядя на твой оригинальный алгоритм, скажу так: ты изначально мыслишь не верно. Пересмотри задачу полностью. Например, должны получиться три пары одинаковых сторон (это обязательно). Четыре стороны должны иметь одинаковую высоту, четыре стороны должны иметь одинаковую ширину. Проверь хотя бы эти параметры.

[SergeyS]

Вношу поправку (и извиняюсь).
Ты все же проверяешь на наличие равных сторон. Сделай так:

Код: Выделить всё

k:=0;
for i:=1 to 6 do
  for j:=1 to 6 do
  begin
    if (i <> j) then
      if (a[i,1]=a[j,1]) and (a[i,2]=a[j,2]) then
      begin
        k:=k+1;
      end;
  end;

[Diploboy]

Vse taki, ne rabotayet, Potamu chto kogda VSE chisli budet rafni (to est KUB), to proga doyot oshibku