Написать программу pascal и excel, которая находит длину самого длинного слова в...

August 2022 2 2 Report

Написать
программу pascal и excel, которая находит длину самого длинного слова в строке.

oOkriOo 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 maxdl<pos(' ',s1)-1 then maxdl:=length(max);
end;
if length(max)>maxdl then maxdl:=length(max);
writeln(maxdl);
end.

P.s. немножко криво написано)) но работает.

Answers & Comments

napisat programmu pascal kotoraya menyaet mestami poslednie dve cifry v zapisi ch

napisat programmu kotoraya podschityvaet kolichestvo otricatelnyh elementov v z

pomogite napisat programmu paskal kotoraya formiruet massiv elementami kotoro

naimenshee celoe znachenie parametraa pri kotorom funkciyavozrastaet na vsej

pomogite v excel e najti dlinu samogo dlinnogo slova v stroke

рекомендуемые вопросы

Helpful Links

Helpful Social