Восстановить IP адрес по фрагментам:
1) .175.5
2) 51.
3) 152
4) 8

аx2+c=0

аx2=-с

х=-с/а

если -с/а меньше 0, корней нет

есла -с/а равно 0, то х=0

если -с/а больше 0,х=+-корень из -с/а

var i: integer;

s,z: real;

begin

    z: =8;

    for i: = 2 to 7 do begin

          s: =s+z;

          z: = z*(1+10/100);

    end;

    writeln(s);

end.

var n,s: integer;

begin

  read(n);

  while n> 0 do begin

      s: =s+n mod 10;

      n: =n div 10;

  end;

  writeln(s);

end.

y=x*x

y=y*y

y=y*y

y=y*x

y=y*x = x^10

y=x*x

y=y*y

y=y*y

y=y*y

y=y/x=x^15

y=x*x*x*x*x*x*x*x*x*x=x^10