// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
procedure MatPrint(a:array[,] of integer);
begin
for var i:=0 to Length(a,0)-1 do begin
for var j:=0 to Length(a,1)-1 do Write(a[i,j]:4);
Writeln
end
end;
procedure MatReplaceOdd(a:array[,] of integer; value:integer);
begin
for var i:=0 to Length(a,0)-1 do
for var j:=0 to Length(a,1)-1 do
if a[i,j].IsOdd then a[i,j]:=value
end;
begin
var n,m:integer;
Write('Задайте число строк и столбцов матрицы: ');
Read(n,m);
var a:=MatrixRandom(n,m,-99,99);
Writeln('Исходный массив');
MatPrint(a);
MatReplaceOdd(a,26);
Writeln('Результирующий массив');
MatPrint(a)
end.
<u><em>Тестовое решение</em></u>
Задайте число строк и столбцов матрицы: 5 7
Исходный массив
-14 86 52 -85 -52 -79 78
20 -80 68 89 -45 -45 -36
-41 -60 96 43 16 56 -58
-39 81 1 26 -15 -98 89
57 -51 79 -28 -24 -63 -74
Результирующий массив
-14 86 52 26 -52 26 78
20 -80 68 26 26 26 -36
26 -60 96 26 16 56 -58
26 26 26 26 26 -98 26
26 26 26 -28 -24 26 -74
Var n:integer;
Begin
Write('n = ');ReadLn(n);
Write('Количество чётных чисел среди [1..',n,']: ',n div 2);
End.
Если ты про это,то область уведомлений.
Исходное равенство равносильно такому
(5*х^2 + x + 1) + (x^2 +5*x + 5) = (6*12^2 + 6*12 + 6)
6*(x^2 + x + 1) - 6*(144+12+1)=0
x^2 + x -156 = 0
x1=12 x2=-13
x2<0, поэтому не подходит в качестве основания системы счисления.
Ответ х=12.
PS. Этот ответ вроде виден сразу, НО был текст "обоснуйте", поэтому без всего этого ответ неполный. Ну и ещё. Именно таким способом, как правило, и решаются практически ВСЕ задачи, где неизвестно основание системы счисления, но очень хочется его знать.
8 бит=1 байт.
16 кбайт=2^14 байт
1 страница содержит 2400 байт
2^14/2400=6.__
у нас должно быть целое кол-во страниц => 6 штук
