Написать
программу pascal и excel, которая находит длину самого длинного слова в строке.
программу pascal и excel, которая находит длину самого длинного слова в строке.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var s,s1,s2,max:string;
i,k,maxdl,j:integer;
begin
readln(s);
s1:=concat(s,' ');
s2:=s;
maxdl:=0;
while pos(' ',s1)>0 do begin
max:=copy(s1,1,pos(' ',s1)-1);
delete(s1,1,pos(' ',s1));
if maxdl<pos(' ',s1)-1 then maxdl:=length(max);
end;
if length(max)>maxdl then maxdl:=length(max);
writeln(maxdl);
end.
P.s. немножко криво написано)) но работает.
Чтобы увидеть программу жмите Alt+F11