Если в числе есть цифра 8, то основание системы счисления не меньше 9.
Если двухзначное число в системе счисления по основанию N оканчивается на 2, то оно равно kN+2, где k=1,2,...N-1
87=kn+2 ⇒ kn=85
Разложим 85 на множители: 85=5×17, N≥9 ⇒ N=17, k=5
Ответ: 17
Const
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to M do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(71)-30;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
Write('Номер столбца: ');
For j:= 1 to N do
Write(j:3,' ');
WriteLn;
Write('Искомое кол-во:');
For j:= 1 to N do
Begin
k:=0;
For i:= 1 to M do
if A[i,j]>0 then k:=k+1;
Write(k:3,' ');
End;
End.
Пример:
Исходный массив:
33 -21 -24 4
-20 28 -29 25
-15 -1 11 3
Номер столбца: 1 2 3 4
Искомое кол-во: 1 1 1 3
program c1;
uses crt;
var a: array [1..5] of integer;
max,k,i: integer;
begin
clrscr;
for i:=1 to 5 do read (a[i]);
k:=0;
max:=1;
for i:=2 to 5 do
if a[i]>a[max] then max:=i;
for i:=1 to 5 do
if a[i]=a[max] then k:=k+1;
writeln ('Кол-во макс. элементов = ',k);
end.
var a,b,i,z,x:integer;
q:array [1..20] of integer;
begin
write('Верхняя граница='); readln(a);
write('Нижняя граница='); readln(b); x:=a-b; randomize;
for i:=1 to 20 do
begin
q[i]:=random(x)+b;
write(q[i],' ');
if (q[i]mod 2=0) then z:=z+q[i];
end;
writeln;
write('Сумма четных чисел=',z);
end.