Олимпиадная задача

[Saidoz]

Всем привет!
Помогите пожалуйста решить задачу срочно нужно))

Я не понимаю как определить длину слов в каждой строке и вычислить характеристику, а в дальнейшем сравнить и вывести нужное название.

[iCaesy]

Картину перезалей хотя бы.

[Saidoz]

Перезалил.

[iCaesy]

Хорошая задача, сейчас закончу свою, и даже попытаюсь сделать.

[Saidoz]

Спасибо)))

[Saidoz]

uppppppppp

[TinMan]

Подсчитать характеристику c строки s можно как-то так примерно:

c:= 0;
z:= 1;
repeat
  while Pos(' ',s)=1 do Delete(s,1,1);
  l:= Pos(' ',s)-1;
  if l<0 then l:= Length(s);
  z:= -z;
  c:= c+z*l*l;
  Delete(s,1,l)
until l=0;

Не проверял. Не очень эффективно, но работать должно вроде. Если во время не уложишься, можно пооптимизировать.

[Saidoz]

Спасибо большое