Категории программного обеспечения При построении классификации ПО нужно учитывать тот факт, что стремительное развитие вычислительной техники и расширение сферы приложения компьютеров резко ускорили процесс эволюции программного обеспечения.Если раньше можно было по пальцам перечислить основные категории ПО — операционные системы, трансляторы, пакеты прикладных программ, то сейчас ситуация коренным образом изменилась.Развитие ПО пошло как вглубь (появились новые подходы к построению операционных систем, языков программирования и т.д.), так и вширь (прикладные программы перестали быть прикладными и приобрели самостоятельную ценность).Соотношение между требующимися программными продуктами и имеющимися на рынке меняется очень быстро. Даже классические программные продукты, такие, как операционные системы, непрерывно развиваются и наделяются интеллектуальными функциями, многие из которых ранее относились только к интеллектуальным возможностям человека.Кроме того, появились нетрадиционные программы, классифицировать которые по устоявшимся критериям очень трудно, а то и просто невозможно, как, например, программа — электронный собеседник.
var a, b, c, i, n, m, j :integer; s, p, q: string; begin read (s); a:=1;for i:=1 to length (s) do begin if s[i]=' ' then begin b:=i-a; c:=0; p:=copy(s,a,b); a:=i+1; for j:=1 to length (p) do 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); if c>=m then begin m:=c; q:=p; end; end; end; a:=length (s); while s[a]<>' ' do begin delete (s,a,1); a:=a-1; end; write (s, q); end.
s, p, q: string;
begin
read (s);
a:=1;for i:=1 to length (s) do
begin
if s[i]=' ' then
begin
b:=i-a;
c:=0;
p:=copy(s,a,b);
a:=i+1; for j:=1 to length (p) do
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);
if c>=m then
begin
m:=c;
q:=p;
end;
end;
end;
a:=length (s);
while s[a]<>' ' do
begin
delete (s,a,1);
a:=a-1;
end;
write (s, q);
end.
P.S. Надеюсь на благодарность и лучший ответ.