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

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

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.

 

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.