Код написан на Pascal, как и просили. Все ваши условия приняты во внимание. (Также прикрепил скриншот с кодом и выводом компилятора, вдруг понадобится) Держите:
m 8 5 n 3 ясно, что основание искомой с/с > 10. Проверим и удостоверимся, что в 11c|c действия выполняются верно. 11 c|c M=6 n = 4 ответ: основание системы 11, m=6, n=4
2. m m 65 n +2 n 4 4 m
5 5 4 2 4 очевидно, что основание искомой с/с > 6. Проверим по действиям в 7 с/с, при сложении в столбик, при m=3 и n=1 и удостоверимся, что всё верно. ответ: осн. с\с = 7, m=3, n=1
Код написан на Pascal, как и просили. Все ваши условия приняты во внимание. (Также прикрепил скриншот с кодом и выводом компилятора, вдруг понадобится) Держите:
uses crt;
var str_row,unicode_row: string;
i,r_num: integer;
function len_str_row (str_row: string): integer;
begin
len_str_row:= length(str_row);
end;
begin
str_row:= '';
unicode_row:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!"#$%&()*+,-./:;<=>[email protected][\]^_`{|}~';
randomize;
for i:= 1 to random(80) do
begin
r_num:= random(length(unicode_row));
str_row:= str_row + copy(unicode_row, r_num, 1);
end;
writeln('Random string - ',str_row);
writeln('The length of this line - ',len_str_row(str_row));
end.
1. + n 3 8 9 8
2 n 7 5 m
m 8 5 n 3
ясно, что основание искомой с/с > 10. Проверим и удостоверимся, что в 11c|c действия выполняются верно.
11 c|c M=6 n = 4
ответ: основание системы 11, m=6, n=4
2. m m 65 n
+2 n 4 4 m
5 5 4 2 4 очевидно, что основание искомой с/с > 6.
Проверим по действиям в 7 с/с, при сложении в столбик,
при m=3 и n=1
и удостоверимся, что всё верно.
ответ: осн. с\с = 7, m=3, n=1
3. пусть основание с\с будет X? тогда:
(4*X^2+X+5)*4 =2*X^3+2*X^2+6*X+6
раскрываем скобки, преобразуем и получаем уравнение:
(2*X - 14)*(X^2+1) = 0 ---> X=7
ответ:7