В двоичной системе счисления это 111011100
Пока s<=1000 выполняем действия:
S=s*3 и n=n+3
Выводим в конце n
Получается
1) s=1*3=3, n=0+3=3 и в следующем шаге подставляем уже эти значения
2) 9, 6 в следующем шаге подставляем уже эти значения и т.д.
3) 27, 9
4) 81, 12
5) 243, 15
6) 729, 18
7) 2187, 21
S>1000 и происходит выход из цикла
Ответ: 21
Const n=4;
<span> m=3;
</span><span>var a: array[,] of integer;
</span><span> b: array of integer;
</span><span> i,j,k: integer;
</span><span>begin
</span><span> setlength(b,n*m);
</span><span> setlength(a,n,m);
</span><span> randomize;
</span><span> writeln('исходный массив:');
</span><span> for i:=0 to n-1 do
</span><span> begin
</span><span> for j:=0 to m-1 do
</span><span> begin
</span><span> a[i,j]:=random(-10,10);
</span><span> write(a[i,j]:4);
</span><span> end;
</span><span> writeln;
</span><span> end;
</span><span>// удаление строк массива
</span><span> k:=0;
</span><span> for i:=0 to n-1 do
</span><span> if a[i,0]<=a[i,m-1] then
</span><span> begin
</span><span> k:=k+1;
</span><span> for j:=0 to m-1 do
</span><span> b[(k-1)*n+j]:=a[i,j];
</span><span> end;
</span><span>// печать нового массива
</span><span> writeln('новый массив:');
</span><span> setlength(a,k,m);
</span><span> for i:=0 to k-1 do
</span><span> begin
</span><span> for j:=0 to m-1 do
</span><span> begin
</span><span> a[i,j]:=b[i*n+j];
</span><span> write(a[i,j]:4);
</span><span> end;
</span><span> writeln;
</span><span> end;
</span><span>end.
</span>исходный массив:
<span> -3 5 -5
</span><span> 2 3 5
</span><span> -8 3 -2
</span><span> 3 -4 -7
</span><span>новый массив:
</span><span> 2 3 5
</span><span> -8 3 -2
</span><span>
</span>
<span>
</span>
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-30,30);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('*** Полученный массив ***');
for var i:=0 to m-1 do
for var j:=0 to n-1 do
if (i+j).IsEven then a[i,j]*=3
else a[i,j]:=a[i,j] div 2;
a.Println(4)
end.
