Слова отделяются друг от друга одним пробелом, знаков препинания нет. 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.
Answers & Comments
Verified answer
Слова отделяются друг от друга одним пробелом, знаков препинания нет.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.
Пример:
Введите строку:
мама мыла раму
ДЛИНА