<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure MyProc;
begin
var n:=ReadInteger('Введите порядок матрицы:');
Writeln('Введите построчно элементы матрицы');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Write('Строки, содержащие только нули: ');
for var i:=0 to n-1 do
if a.Row(i).All(t->t=0) then Print(i+1);
Writeln
end;
begin
Loop 2 do MyProc
end.
<u>Пример</u>
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0
------------
Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0
--------
Строки, содержащие только нули: 1 2
K=4*30*50=6000 символов
I = K * i
I=4500 байт = 36000 бит
i=6
350(6)=3*6^2+5*6^1+0*6^0
778(11)=7*11^2+7*11^1+8*11^0
1001001(3)=1*3^6+0*3^5+0*3^4+1*3^3+0*3^2+0*3^1+1*3^0
<span>10101101</span>(4)=1*4^7+0*4^6+1*4^5+0*4^4+1*4^3+1*4^2+0*4^1+1*4^0
Решение
a:=10;
b:=(10)+1;
a:=(11)-10;
Ответ: a = 1 b = 11