Вопросы и задания ? 1. Ознакомьтесь с материалами презентации к параграфу, со-
держащейся в электронном приложении к учебнику. Что вы
можете сказать о формах представления информации в пре-
зентации и в учебнике? Какими слайдами вы могли бы до-
полнить презентацию?
2. Что такое модель? В каких случаях используется моделиро-
вание?
3. Подтвердите на примерах справедливость следующих выска-
зываний:
а) одному объекту может соответствовать несколько моделей;
б) одна модель может соответствовать нескольким объектам.
4. Приведите примеры натурных и информационных моделей.
5. В приведённом перечне моделей укажите те, которые могут
использоваться для:
а) представления объектов окружающего мира;
б) объяснения известных фактов;​

объяснение:

нужно нарисовать два круга, которые будут пересекаться и один, который будет отдельно — в пересечении будет 5 (которые играют и в шах, и в шаш), в области круга шахмат, не включающей в себя область пересечения будет 3, а в в области круга шашек, не включающей в себя область пересечения будет 0

теперь произведем вычисления: 29 - область пересечения - шахматы без пересечения - шашки без пересечения = 29 - 5 - 3 - 0 = 21

21 нужно записать в третий круг, который не пересекается с остальными двумя — это и есть ответ на задачу

var  mas1, mas2: array[0..9] of integer;  t, k, i, j: integer; 
begin  
readln(t);  
readln(k);  
for j := 0 to 1 do  begin   
      if (j = 1) then writeln();        
                 for i := 0 to 9 do    begin      
                          if(j = 0) then begin       
                                  mas1[i] := random(100);        
                                    write(mas1[i], ' ');       
                                    if mas1[i] > t Then mas1[i] := mas1[i] + 4;      
                              end      
                            else 
                               begin       
                                      mas2[i] := random(100);        
                                      write(mas2[i], ' ');       
                                       if mas2[i] > 10 * K Then         
                                            mas2[i] := mas2[i] + K;      
                                end;    
                       end;       
                  for i := 0 to 9 do     
                         if (j = 0) then 
                               write(mas1[i]) 
                        else 
                                write(mas2[i]);    
               writeln();  
           end;  
readln();
end.

))