begin
var a := MatrRandom(4, 3, -99, 99);
a.Println(4);
a.ElementsByRow.Where(p -> p > 1).Count.Println
end.
32000000 килобайт в 32 гигабайтах
На паскале.
1)
var i, n, sum : integer;
begin
sum := 0;
for i := 1 to 10 do
begin
readln(n);
sum := sum + n * n;
end;
writeln(sum);
end.
2)
var i, sum : integer;
n : real;
begin
sum := 0;
for i := 1 to 15 do
begin
readln(n);
if n = trunc(n) then sum := sum + 1;
end;
writeln(sum);
end.
3) var n, m, i : integer;
begin
readln(n, m);
for i := n to m do
if i mod 2 = 0 then writeln(i);
end.
4) var n, i : integer;
begin
readln(n);
for i := 1 to n do
if n mod i = 0 then writeln(i);
end.
40(10) = 32+8 = 2^5+2^3 = 101000(2)
В 8-разрядной ячейке: 00101000