Дана последовательность символов. разбить ее на четыре последовательности: буквы алфавита, буквы латинского алфавита, цифры и другие символы.

Const   cyr=['а'..'я','ё','ё'];   lat=['a'..'z'];   dig=['0'..'9']; var   s,sc,sl,sd,so: string;   i: integer; begin   writeln('введите произвольную строку символов');   readln(s);   sc: =''; sl: =''; sd: =''; so: ='';   for i: =1 to length(s) do       if s[i] in cyr then sc: =sc+s[i]       else           if s[i] in lat then sl: =sl+s[i]           else               if s[i] in dig then sd: =sd+s[i]               else so: =so+s[i];   writeln('кириллица: ',sc);   writeln('латиница : ',sl);   writeln('цифры      : ',sd);   writeln('прочее    : ',so) end. тестовое решение: введите произвольную строку символов запишем следующее выражение: y=5*sin(x)/(3.5*x+sqr(x); (язык pascal) кириллица: запишемследующеевыражениеязык латиница : ysinxxsqrxpascal цифры      : 535 прочее    :     : =*()/(.*+(); ( ) примечание: поскольку в не сказано, что требуется записать все использованные символы только по одному разу, они повторяются.

Системные -дефрагментация диска ,winzip, internet explorer прикладные - winrar