var
i: <em>integer</em>;
begin
for k: <em>byte</em> := 0 to 10 do
i += round(power(2, k));
writeln(i);
<span>end.</span>
Ответ:
18
Объяснение:
Проверено в Xsel
Выбираешь через шифт ячейки от B12 по В17 и считаешь
Получается 3 колонки, 6 строчек, умножаешь и получаешь 18
var n,z,n1,e:integer;
begin
e:=0;
readln(n);
n1:=n div 2;
for z:=1 to n1 do begin
if (n mod z = 0) then e:=e+z;
end;
if (e=n)
then writeln('соверншенное')
else writeln('0');
end.
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function kolichestvo(c:array [,] of integer):integer;
begin
Result:=0;
var n:=c.RowCount;
for var i:=1 to n-1 do
for var j:=n-i to n-1 do
if c[i,j].IsEven then Result+=1
end;
function massiv:array[,] of integer;
begin
var n:=ReadInteger('Число строк/столбцов: ');
Result:=MatrRandom(n,n,-99,99)
end;
begin
var s:=massiv; s.Println(4); Writeln(4*s.ColCount*'-');
var n:=massiv; n.Println(4); Writeln(4*n.ColCount*'-');
var m:=Sqr(kolichestvo(s)+kolichestvo(n));
Writeln('M=',m)
end.
<u>Пример</u>
Число строк/столбцов: 3
-77 -81 82
-30 -37 39
31 92 12
------------
Число строк/столбцов: 6
66 9 -64 -53 13 -61
16 -72 -25 38 -19 21
40 29 38 77 -38 11
31 76 -83 -17 -58 1
-2 39 -63 84 -35 -42
-23 -75 -57 92 -14 -73
------------------------
M=64