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

Для решения этой отбросим лишнее и оставим только данные нам факты: 1.юре не хватает времени на туризм -> юра не турист. 2. врач сказал,что разделает увлечение сестры юры -> врач - турист. 3. у двух друзей нет нет букв из их имени ни в профессии, ни в увлечении. начнем с тимура.буквы из его имени есть во всех профессиях,значит к факту №3 он не относится. возьмем юру. если учитывать факт №3, то из увлечений ему подходит только бег, а из профессий - . влад же у нас получается ,следуя факту №3 , юрист, увлечение которого - регби. тогда тимур у нас является врачом, который увлекается туризмом. решение верное,так как ни один из фактов не нарушен. ответ: влад - юрист - регби             тимур - врач - туризм             юра - - бег

Const n=15;   var a: array[1..n] of integer; s,i: integer; p: real; begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(16);   write(a[i]: 3);   end; writeln; s: =0; p: =1; for i: =1 to n do   begin   s: =s+a[i]; p: =p*a[i];   end; writeln('s = ',s,'   p = ',p); end. пример: массив a:   1 14 12 14   6   4 10   3   3   1 15   4   4   5   6 s = 102   p = 36578304000

Const n=8; var  a: array[1..n,1..n] of integer; i,j,k,s,s1,si,dmin,smin: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to n do   begin   a[i,j]: =random(50);   write(a[i,j]: 4);   end;   writeln;   end; write('k = '); readln(k); s: =0; for j: =1 to n do s: =s+a[k,j]; writeln('s = ',s); dmin: =999999; smin: =999999; for i: =1 to n do   if i< > k then   begin   s1: =0;     for j: =1 to n do s1: =s1+a[i,j];   writeln('s',i,' = ',s1);   if abs(s1-s)< dmin then begin dmin: =abs(s1-s); smin: =s1; si: =i; end;   end; writeln('номер строки = ',si,', smin = ',smin); end. пример: исходный массив:     9   0   22   40   20   35   2   25   23   30   22   35   41   0   9   40     1   15   6   18   43   47   34   33   26   5   2   45   13   46   40   2   26   39   7   31   3   43   20   8   25   15   24   6   10   16   3   25   47   0   27   35   14   15   36   11   16   38   14   14   33   7   11   26 k = 5 s = 177 s1 = 153 s2 = 200 s3 = 197 s4 = 179 s6 = 124 s7 = 185 s8 = 159 номер строки = 4, smin = 179