ТАК ДЕРЖАТЬ
вот что зашифровано
===== PascalABC.NET =====
begin
var a := MatrRandom(3, 7, -99, 99);
a.Println(4);
Writeln;
var i := Range(0, 6).ToArray;
a := a.MatrSlice(Arr(0,1,2), i[:4] + i[5:]);
a.Println(4)
end.
для массива A заданы числа от 1 до 6, 1 символ = 2 байта, 6 * 2 = 12 байт.
I)
var a,b:real;
c:integer;
begin
c:=0;
a:=243;
while a>=32 do begin
a:=a/3*2;
c:=c+1;
end;
writeln(c);
<span>end.
</span>II)
var s,b:integer;
begin
for b:=1 to 51 do
begin
s:=s+b;
end;
writeln(s);
end.