Var
i, k: integer;
begin
k := 0;
for i := 297 downto 230 do
if i mod 4 = 0 then
begin
write(i, ' ');
k := k + 1;
end;
writeln(#13+'Количество = ', k);
end.
<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,'x',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var q:=a.Cols.Select(x->x.First<x.Last).ToArray;
var k:=q.Where(r->r).Count;
Writeln('*** Результирующая матрица [',m,'x',k,'] ***');
var b:=MatrFill(m,k,0);
var l:=0;
for var j:=0 to n-1 do
if q[j] then begin
for var i:=0 to m-1 do b[i,l]:=a[i,j];
l+=1
end;
b.Println(4)
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5x8] ***
15 -35 -11 -18 49 -32 31 -47
-21 -46 7 -48 3 24 -48 5
28 -46 36 -9 17 -32 -44 -10
-16 7 -14 40 13 30 50 -28
-8 35 -49 47 -31 30 18 20
--------------------------------
*** Результирующая матрица [5x4] ***
-35 -18 -32 -47
-46 -48 24 5
-46 -9 -32 -10
7 40 30 -28
35 47 30 20
т.е. числа из интервала (2, 5), если целые то это 3 и 4
Электронная почта, социальные сети, форумы, игры, скайп. Всё где ты можешь общаться с другим человеком
<span><span>I
<span> 1</span></span><span>
V
<span> 5</span>
</span><span>X
<span> 10</span>
</span><span>L
<span> 50</span>
</span><span>C
<span> 100</span>
</span><span>D
<span> 500</span>
</span><span>M
<span> 1000</span></span></span>
Ответ: 1648.