Доступ к файлу org. txt, находящемуся на сервере net. ru, осуществляется по протоколу http. Фрагменты адреса файла закодированы цифрами от 1 до 7. Запишите последовательность этих цифр, кодирующую адрес указанного файла в сети Интернет.
1 org
2 ru
3 .
4 http
5 :
6 net
7/
8 txt

Не такое оно и сложное. главная проблема - то, что между словами может быть несколько пробелов. устраним её, написав функцию, которая оставляла бы между словами по 1 пробелу: function removespaces(str : string) : string; begin    //тут цикл for, переписанный через while    var iter : = 1;     //проходим по строке    while (iter < str.length) do    begin          //если видим 2 пробела подряд, удаляем 1 и откатывает итератор.          if (str[iter] = ' ') and (str[iter + 1] = ' ') then                begin                      str : = str.remove(iter, 1);                       iter -= 1;                 end;           iter += 1;     end;     removespaces : = str; end; теперь мы можем получить кол-во слов просто: function calcwords(str : string) : integer; begin    calcwords : = removespaces(str).split(' ').count(); end; т.е. мы делим строку на массив через пробелы, и считаем кол-во элементов массива. полный код: