Розповідь подорож електронним кобінетом

Коли я захожу в цей кабінет-у мене розбігаються очі, я відчуваю себе ніби у якійсь лабораторії. справа у нас комп'ютери, багато стендів з електронними відомостями. небагато парт, тому цей кабінет найзатишніший.

Впрограмме буквы  добавляются по алфавиту без повторений. var s1,s2: string; function f(var a,b: string): boolean; var m: set of char; i: integer; c: char; begin   m: =[];   for i: =1 to length(a) do   if pos(a[i],b)=0 then m: =m+[a[i]];   for c: =chr(32) to chr(255) do   if c in m then a: =a+c;   if m=[] then f: =false else f: =true; end; begin writeln('введите строку 1: '); readln(s1); writeln('введите строку 2: '); readln(s2); if f(s1,s2)   then writeln('новая строка: ',s1) else writeln('строка не изменилась '); end. пример: введите строку 1: program введите строку 2: procedure новая строка: programagm

        private string fuction(string a,string b)        {             char[] massa = a.tochararray();             char[] massb = b.tochararray();             foreach(char itema in massa)            {                foreach(char itemb in massb)                {                    if(itema == itemb)                    {                        break;                     }                    else                    {                        a += itema.tostring();                         break;                     }                }            }            return a;         }