Определите, имеет ли решение уравнение 990(x) : 60(x) = 1110(3), где x – неизвестное основание системы счисления, и если да, то укажите значение x в качестве ответа.

Сведем все в 10-ую систему счисления , для этого 1110(3)   переведем в 10 -ую систему счисления !   теперь любое число   в любом счислений можно разложить на   позиционные разряды  то есть числа в 25 системе счисления , верно так как  ответ   х = 25 

1var   i, j, n: integer;   a: array[1..3, 1..8]of integer; begin for i : = 1 to 3 do   begin        for j : = 1 to 8 do     begin     a[i, j] : = random(-9, 9);     write(a[i, j]: 3);     if a[i, j] < 0 then n : = n + 1;     end;   writeln;   end;   writeln('количество отрицательных: ', n);     end.2var  i, j, n: integer;   p: array[1..6, 1..7]of integer; begin  for i : = 1 to 6 do  begin  for j : = 1 to 7 do    begin    p[i, j] : = random(-9, 9);     write(p[i, j]: 3);     end;   writeln;   end;   write('какую строку вывести: ');   readln(n);   for j: =1 to 7 do  write(p[n,j]: 3); end.3var  i, j, n: integer;   p: array[1..6, 1..7]of integer; begin  for i : = 1 to 6 do  begin        for j : = 1 to 7 do    begin    p[i, j] : = random(-9, 9);     write(p[i, j]: 3);     end;   writeln;   end;   write('какую строку изменить: ');   readln(n);   for j: =1 to 7 do p[n,j]: =5;   for i : = 1 to 6 do  begin        for j : = 1 to 7 do write(p[i, j]: 3);   writeln;   end; end.4var  i, j, n: integer;   a: array[1..10, 1..10]of integer; begin  for i : = 1 to 10 do  begin  for j : = 1 to 10 do    begin    a[i, j] : = random(-9, 9);     write(a[i, j]: 3);     end;   writeln;   end;   for j: =1 to 10 do a[j,j]: =0;   writeln('измененный массив: ');   for i : = 1 to 10 do  begin  for j : = 1 to 10 do write(a[i, j]: 3);   writeln;   end; end.

Sub z() dim k as integer dim m as integer dim p as single dim i as integer dim j as integer dim n as integer dim x as integer k = inputbox("количество округов") m = inputbox("количество партий") p = inputbox("порог явки изберателей (в %)") s = "выборы состоялись в округах: " for i = 1 to k     for j = 1 to m         x = inputbox("округ " & i & ". голосов за партию №" & j)         n = n + x     next j     x = inputbox("округ " & i & ". не голосовало")     if (n / (n + x) * 100) > p then s = s & i & "; "     n = 0 next i msgbox (s) end sub