<span>Волк - полк - пола - поза - коза
<span>Волк-воля-Коля-кола-коза</span></span>
N=16 симв.
Значит, i=4 бит
I=1/16 Mбайта
K - ?
I=64 Кбайта=65536 Байт=524288 Бит
I=Kxi
K=I/i
K=131072
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача 1</em>
begin
Writeln('S=',Range(1,ReadInteger('N=')).Sum(x->x*x))
end.
<u>Пример</u>
N= 10
S=385
<em>Задача 2</em>
begin
Writeln('S=',Range(1,99,2).Sum)
end.
<u>Результат</u>
S=2500
Средства вывода: наушники, встроенный динамик, колонки.
Средство ввода: микрофон.
//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 255);
PrintMatrix(a);
for var i := a.GetLowerBound(0) to (a.GetUpperBound(0) div 2) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
swap(a[i, j], a[a.GetLowerBound(0) + a.GetUpperBound(0) - i, j]);
PrintMatrix(a);
end.