Што такое кпк и как етим пользовитса?

Кпк ныне устарвешее понятие, ввиду развития технологий сейчас сотовый телефон обладает большим функционалом а кпк отмерли. пользоваться стилусом и клавиатурой

тк Борисов жил с ученым из Ярославля, то Борисов не оттуда и не с Москвы и Санкт-Петербурга. следовательно, он с Новосибирска

Григорьев не Москвич и не с Ярославля. и теперь понятно, что не с Новосибирска. следовательно, он с Санкт-Петербурга

Егоров не с Москвы, остается один вариант, он с Ярославля

а Викторов значит с Москвы

можно сделать таблицу (по ней легко решать такие задачи):

                  Москва.   Новосиб.   С-п.   Ярославль.

Борисов.       -                 +               -              -

Викторов.     +                -                -              -

Григорьев.   -                 -                +             -

Егоров.         -                 -                -              +

Var sim: array[0..10] of string; function count_ya(var s: string): integer; begin   var i, n, len: integer;   var c: char;     n : = 0;   len : = length(s);   for i : = 1 to len do begin       c : = s[i];       if (c = 'я') or (c = 'я') then begin           n : = n + 1;       end;   end;     result : = n; end; procedure word(var s: string); begin   var i, c, k, j: integer;     c : = count_ya(s);     for i : = 0 to 10 do begin       if count_ya(sim[i]) < c then begin           for k : = 9 downto i do begin               sim[k + 1] : = sim[k];           end;                 sim[i] : = s;           break;       end;   end; end; begin   var c: char;   var i, k: integer;   var f1: text;   var s: string;   assign(f1, 'file1.txt');   reset(f1);   randomize;   i : = 0;   while not eof(f1) do begin       read(f1, c);       if ((c > = 'а') and (c < = 'я')) or ((c > = 'а') and (c < = 'я')) then begin           i : = 1;           s : = s + c;       end else begin           if i = 1 then begin               word(s);           end;           i : = 0;           s : = '';       end;   end;     if i = 1 then begin       word(s);   end;     close(f1);     for i : = 0 to 10 do begin       s : = sim[i];       if s = '' then break;       writeln(s);   end; end.