Есептеуіш техника буындары қалай аталады

begin

writeln(' 00000000 ');

writeln(' 0000 0000');

writeln(' 0000 0000');

writeln(' 0000 0000 0000000');

writeln(' 0000 0000 0000 0000 ');

writeln(' 0000 0000 0000 0000 ');

writeln(' 0000 0000 0000 0000 ');

writeln(' 00000000 0000000 000');

writeln(' 0000 ');

writeln(' 000 ');

writeln(' 000 000 ');

writeln(' 00000 000 ');

writeln(' 000 000 ');

writeln(' 000 000 ');

writeln(' 0000 0000 ');

writeln(' 00000 00000 ');

writeln(' 000000 000000 ');

writeln(' 00000000 000000 ');

writeln(' 00000000000000000000 ');

writeln(' 0000000000000000 ');

writeln(' 00000000 ');

writeln();

end.

begin

writeln('.•´ ¯ `•.¸¸.•´ ¯ `•.¸¸.><o> ');

writeln('¯ `•.¸¸.><o> ¯ `•.¸¸.><o> ');

writeln();

writeln('¯ `•.¸¸.><o> ¯ `•.¸¸.><o> ');

writeln('.•´ ¯ `•.¸¸.•´ ¯ `•.¸¸.><o> ');

writeln();

end.

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.