Дана строка, содержащая пробелы. найдите в ней самое длинное слово, выведите это слово и его длину. если таких слов несколько, выведите первое из них.

Procedure getword(s: string; var from: integer; var w: string; var len: integer); { ищет в строке s слово, начиная с позиции from. если слово w найдено, from будет указывать на его начало, а в len будет находиться длина эого слова. если слово не найдено, w='', len=0 слова раздеяются минимум одним пробелом, за исключением первого и последнего слова, у которых пробел может находиться только с одной стороны. } var   i,n: integer;   stop: boolean; begin   n: =length(s); i: =from; stop: =false;   while (i< =n) and (not stop) do       if s[i]=' ' then inc(i) else stop: =true;   if i> n then begin len: =0; w: ='' end   else begin       from: =i; stop: =false;       while (i< =n) and (not stop) do       if s[i]< > ' ' then inc(i) else stop: =true;       if i> n then len: =n-from+1 else len: =i-from;       w: =copy(s,from,len)   end end; var   s1,wd,wdmax: string;   ic,l,lmax: integer; begin   write('введите строку: '); readln(s1);   ic: =1; lmax: =0;   repeat       getword(s1,ic,wd,l);       if (l> 0) and (l> lmax) then           begin lmax: =l; wdmax: =wd end;       ic: =ic+l+1   until l=0;   writeln('самое длинное слово "',wdmax,'" длины ',lmax) end.   тестовое решение: введите строку: это пример      тестовой      строки  с произвольным числом    пробелов. самое длинное слово "произвольным" длины 12

3 правильный

Объяснение:

Хд, я пальцем в небо