Слова отделяются друг от друга одним пробелом, знаков препинания нет.
var
s,s1:string; l,p:integer; b:boolean;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
l:=pos(' ',s1);
b:=true;
while p>0 do
begin
delete(s1,1,p);
p:=pos(' ',s1);
if p>0 then b:=b and (l=p);
end;
if b then writeln('ДЛИНА');
end.
Пример:
<span>Введите строку:
мама мыла раму
ДЛИНА
</span>
По идеи мы берем со стола всего две божьи коровки
Первую с количеством точек - 2
У нас выходит: 1+2 = 3
Т.к. 3 не равно 7 - это ложь
Далее у нас выходит 3 + 4 = 7
7 = 7 по этому - конец кода. (По идеи так решать надо, уже не помню много лет прошло)
Что мы имеем?
Божьи коровки с точками отправляются:
2 - ложь
4 - истина
ну и всё остальное ложь.
Карочи как-то так
1 - <span>вражда не делает добра
2 школа - </span> <span>ынсог</span>
<span>Для скачивания файлов с FTP-серверов, в принципе, достаточно браузера. При переходе по ссылке на FTP-сервер (или при указании адреса сервера в адресной строке браузера) на странице обозревателя появляется структура папок в виде ссылок. Чтобы зайти в папку, нужно щелкнуть по ссылке. При этом на странице появится содержимое этой папки, опять же в виде ссылок. Это могут быть ссылки на файлы или вложенные папки.</span>