Это всё одно и тоже, потому что компьютерный специалист и программист это одно и тоже
а комплексы не знаю как это относится к другим
Ответ:
Объяснение: в А до тех пор пока Х не будет меньше нуля. в Б до тех пор пока Х не будет больше нуля
<em>var a, b, c, i, n, m, j :integer; </em>
<em>s, p, q: string;</em>
<em>begin</em>
<em>read (s);</em>
<em>a:=1;for i:=1 to length (s) do </em>
<em> begin </em>
<em> if s[i]=' ' then </em>
<em> begin </em>
<em> b:=i-a; </em>
<em> c:=0; </em>
<em> p:=copy(s,a,b); </em>
<em> a:=i+1; for j:=1 to length (p) do </em>
<em> if (p[j]<>'у') and (p[j]<>'У') and (p[j]<>'е') and (p[j]<>'Е') and (p[j]<>'ы') and (p[j]<>'Ы') and (p[j]<>'а') and (p[j]<>'А') and (p[j]<>'о') and (p[j]<>'О') and (p[j]<>'э') and (p[j]<>'Э') and (p[j]<>'я') and (p[j]<>'Я') and (p[j]<>'и') and (p[j]<>'И') and (p[j]<>'') and (p[j]<>'Ю') then inc(c); </em>
<em> if c>=m then </em>
<em> begin </em>
<em> m:=c; </em>
<em> q:=p; </em>
<em> end; </em>
<em> end; </em>
<em> end; </em>
<em>a:=length (s); </em>
<em>while s[a]<>' ' do </em>
<em> begin </em>
<em> delete (s,a,1); </em>
<em> a:=a-1; </em>
<em> end;</em>
<em> write (s, q); </em>
<em>end.</em><span><em> </em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>