Разделите слова в два столбика: общие понятия и единичные понятия. число, столица россии, учебник, наука, житель москвы, столица, самая высокая гора, а.с, пушкин, сказочный персонаж, змей горыныч.

Общие                                 единичные                                  учебник                               пушкин наука                                 горыныч. столица                             столица россии сказочный персонаж       житель москвы число

Общие                                   единичные                                               число                                   столица россии учебник                                 житель москвы наука                                   а.с. пушкин столица                               змей горыныч сказочный персонаж p.s.: сомневаюсь насчет "жителя москвы"

Во первых, прежде чем мы напишем программу, обратим внимание на тот факт, что буква о  равна 1, что существенно уменьшит количество переборов в цикле. запишем это выражение в виде: a+8*(10+n)=(10*m+y) у нас получилось 4 вложенных цикла: uses crt; var a, n, m, y: integer; begin   clrscr;   for a: =0 to 9 do       for n: =0 to 9 do           if (a< > n) then               for m: =1 to 9 do                   if (a< > m) and (n< > m) then                       for y : =0 to 9 do                           if (a< > y) and (n< > y) and (m< > y) then                                 if (a+8*(10+n)=10*m+y) then                                     begin                                         write('я=', a,'  ');                                         write('o=', 1,'  ');                                         write('н=', n,'  ');                                         write('m=', m,'  ');                                         write('ы=', y,'  ');                                         writeln;                                     end; readln; end. и всего 8 различных !

Японял и написал программу: uses crt; const n=25; type mas=array [1..n] of integer; var    i, col: integer;             a: mas; begin   clrscr;   randomize;   col: =0;   writeln(' massiv a: ');   for i: =1 to n do     begin             a[i]: =10+random (90);             write(a[i]: 3);             if (a[i] mod 2=0) then col: =col+1;     end;     writeln; writeln;     writeln(' col = ', col);   readln; end.