Дайте наиболее точное определение интерпретатора. 1) программа, которая переводит весь текст выполняемой программы на машинный язык и сохраняет его в исполняемом файле 2) программа, которая обеспечивает последовательный "перевод" команд программы на машинный язык с одновременным их исполнением 3) программа, позволяющая создавать приложения, написанные на различных объектно-ориентированных языках программирования 4) вид языков программирования, в основу которых положены программные объекты, которые объединяют данные и методы их обработки

Программа, которая обеспечивает последовательный "перевод" команд программы на машинный язык с одновременным их исполнением

на скейтборде и на роликах умеют кататься 10 человек, а 3 из них катаются еще и на сноуборде. следовательно, кататься только на скейтборде и на роликах умеют 10-3=7 . аналогично получаем, что только на скейтборде и на сноуборде умеют кататься 8-3=5 , а только на сноуборде и на роликах 5-3=2 человека. определим теперь, сколько человек умеют кататься только на одном спортивном снаряде. кататься на сноуборде умеют 30 человек, но 5+3+2=10 из них владеют и другими , следовательно, только на сноуборде умеют кататься 20 . аналогично получаем, что только на скейтборде умеют кататься 13 , а только на роликах – 30 . по условию всего 100 . 20+13+30+5+7+2+3=80 – умеют кататься хотя бы на одном спортивном снаряде. следовательно, 20 человек не умеют кататься ни на одном спортивном снаряде. 

20 человек не умеют кататься ни на одном спортивном снаряде.

 

program matrix;  

uses crt; type matrix=array[1..3,1..3] of real; var m: matrix;

 

procedure printmatrix(mas: matrix); var j,k: integer; begin      for k: =1 to 3 do            begin                for j: =1 to 3 do                      begin                          write(mas[k,j]: 7: 2);                       end;                 writeln;           end; end;

 

 

procedure auto; var i,j: integer; begin      randomize;       for i: =1 to 3 do            begin                for j: =1 to 3 do                      begin                        m[i,j]: =25+random(21)+i;                       end;             end; end;  

 

begin 

      clrscr;  

      auto;

      printmatrix(m);

      readkey;

end;