(oui)²=2хoouui, числа не начинаються с нуля. выяснил, что i = 2, дальше не могу

ответ:

объяснение:

(152)²=2*11552

если что, решил перебором)

var

  o, u, i: integer;

begin

  for o: =1 to 9 do

    for u: =0 to 9 do

      for i: =0 to 9 do

        if ((o*100+u*10+i)*(o*100+u*10+i)= (2*(o*1+o*1000+u*100+u*10+

          then writeln(o, u, i);

  readln;

end.