с информатикой Одно из важных требований к модели заключается в том, что она должна быть подобна объекту-оригиналу (по внешнему виду, строению или поведению). Определите, в чем заключается подобие следующих объектов и их моделей:

a) автомобиль; игрушечная машинка; фотография автомобиля в журнале;

б) стол; чертеж стола; схема крепления деталей при сборке стола;

в) соединение водорода и кислорода при горении; уравнение химической реакции 2H2+02=2H20;

г) прямоугольный треугольник; теорема Пифагора.
​

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.

отмечено как нарушение через stoker ( w: 0% t: 4 )

var s,i,n,m : longint;

begin

  readln(m,n);

  if m> n then

  begin

      s: =m;

      m: =n;

      n: =s

  end;

  s: =0;

  for i: = m to n do if i mod 12=0 then s: =s+i;

  writeln(s);

end.