Какое минимальное основание может иметь система счисления, если в ней записаны все данные числа: 123, 41011 12, 4123 11111000000 12111110, 10. ответ запишите десятичным числом.

Наибольшая цифра в записях чисел - 4.
Следовательно, минимальное основание - 5.

===== PascalABC.NET =====

#1

y := (a * x + 2 * b * x * x) * Abs(Cos(x * x)) / (Pi * Exp(x));

y := (a * Ln(b * x)) ** (1 / 3) / (1 + Sqr(Sin(a * x)));

y := (Abs(Sin(x ** 3)) + a) * Exp(a) / (b * b + c * c) ** (1 / 3);

#2

begin

 var (a, x) := ReadReal2('Введите a и x:');

 var t := x ** 3 - a;

 t := Sign(t) * Abs(t) ** (1 / 3);

 var y := t + Sin(x * x) / a;

 Print('y =', y)

end.

Операция возведения в степень ** в PascalABC.NET определена только для неотрицательного аргумента, поскольку она выполняется с использованием логарифма. В то же время, в математике операция извлечения корней нечетной степени для отрицательного аргумента опеределена и допустима. В соответствии с этим, извлечение кубического корня в программе производится из абсолютной величины аргумента и последующим присваиванием знака этого аргумента результату. Если имеется потребность вычислять подобные корни в нескольких местах программы, имеет смысл ввести для этого собственную функцию.

program z1;

var a: array [1..15] of real;

i, k, b: integer;

proizv: real;

begin

proizv:= 1;

a[1]:= 0.01;

a[2]:= -3;

a[3]:= 0;

a[4]:= 1.25;

a[5]:= -371;

a[6]:= 0.5;

a[7]:= -0.1;

a[8]:= 1.2;

a[9]:= -5;

a[10]:= -172.3;

a[11]:= 19783;

a[12]:= -2.7;

a[13]:= 43.51;

a[14]:= 0;

a[15]:= -0.02;

b:= -3;

k:= 0;

for i:=1 to 15 do

begin

if (a[i] <> 0) and (a[i] > b) then

begin

proizv:= proizv * a[i];

k:= k+1;

end;

end;

writeln('Количество чисел, подходящих условию: ', k);

writeln('Произведение чисел, подходящих условию: ', proizv);

end.

Объяснение:

На фото нарисована блок-схема, она немного криво сфоткана, надеюсь разберёшься. Если есть вопросы - задавай :)