Решить логическую систему ур-ий:

Существует три философские концепции информации:

1.Атрибутивная концепция опирается на наиболее широкое понимание информации как отражения разнообразия в любых объектах и процессах как в живой, так и в неживой природе. В ней информация в самом общем виде определяется как мера неоднородности распределения материи и энергии в пространстве и времени, которая сопровождает все протекающие в мире процессы.

2.Функциональная концепция - Форма отражения, которая связана с самоуправляемыми системами. В данном контексте информация интерпретировалась не как свойство всей материи, но как особенность живых самоуправляющихся систем или же сознательных существ, как основная предпосылка и условие оптимального управления.

3.Антропоцентрическая концепция информация существует лишь в человеческом сознании, в человеческом восприятии. Информационная деятельность присуща только человеку, происходит в социальных системах. Создавая информационную технику, человек создает инструменты для своей информационной деятельности.

PascalABC.NET 3.4

function L(x1,y1,x2,y2:real):=Sqrt(Sqr(x2-x1)+Sqr(y2-y1));

begin
  var (xa,ya):=ReadReal2('Введите координаты точки А(х,у):');
  var (xb,yb):=ReadReal2('Введите координаты точки B(х,у):');
  var (xc,yc):=ReadReal2('Введите координаты точки C(х,у):');
  var a:=L(xb,yb,xc,yc);
  var b:=L(xc,yc,xa,ya);
  var c:=L(xb,yb,xa,ya);
  var k:=a=b?1:0;
  k+=a=c?1:0;
  k+=b=c?1:0;
  case k of
  0:Writeln('разносторонний');
  1:Writeln('равнобедренный');
  else Writeln('равносторонний');
  end
end.



begin
  var n:=ReadInteger('n=');
  var i:=Trunc(Ln(n)/Ln(3));
  if 3**i=n then i-=1;
  Writeln(i)
end.