Всистеме счисления с некоторым основанием число десятичное 25 записывается как 100 . найдите это основание

Основание будет 5. т. к. 1*x*x+0*x+0*1=25 x*x=25 x=5, где х- основание

Var   sr: real;   i,j,n: integer;   a: array[1..8,1..4]of integer;   b: array[1..32] of integer; begin for i: =1 to 8 do   begin   for j: =1 to 4 do     begin     a[i,j]: =random(-40,90);     write(a[i,j]: 4);     sr: =sr+a[i,j];     end;   writeln;   end; sr: =sr/32; writeln('среднее: ',sr); for i: =1 to 8 do   for j: =1 to 4 do   if a[i,j]> sr then     begin     n: =n+1;     b[n]: =a[i,j];     end; writeln('количество искомых элементов: ',n); for i: =1 to n do  write(b[i]: 4); end.  

a = 3, b = 1, c = 2

if a > b (3 > 1): M = a (M = 3, условие сработало - эту ветку выполняем)

else: M = b (условие сработало - эту ветку пропускаем)

if c > b (2 > 1): M = c (M = 2, условие сработало - эту ветку выполняем)

else: M = b (условие сработало - эту ветку пропускаем)

M = 2

if c > M: M = c

a = 3, b = 1, c = 2

if a > b (3 > 1): M = a (M = 3)

else: M = b (условие сработало - эту ветку пропускаем)

if c > M (2 > 3): M = c (условие НЕ сработало - эту ветку пропускаем)

M = 3

Объяснение:

В первой программе сначала сравнивают первое и второе число и переменной М присваивают значение большего из них. Затем сравнивают второе и третье число и переменной М присваивают значение большего из них. Если первое и третье число больше второго числа, то программа выдаёт неверный результат.

Во второй программе сначала сравнивают первое и второе число и переменной М присваивают значение большего из них. Затем сравнивают третье число и переменную М и переменной М присваивают значение третьего числа, если оно больше. Программа выдаёт верный результат.