Написать программу pascal и excel, которая находит длину самого длинного слова в строке.
Написать
программу pascal и excel, которая находит длину самого длинного слова в строке.
Гость
Ответ(ы) на вопрос:
ГостьPascal:
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 maxdlmaxdl then maxdl:=length(max);
writeln(maxdl);
end.
P.s. немножко криво написано)) но работает.
ГостьВариант с VBA Excel
Чтобы увидеть программу жмите Alt+F11
Не нашли ответ?
Похожие вопросы