===== PascalABC.NET =====
procedure MyFill(a: array[,] of integer);
begin
for var i := 0 to a.RowCount - 1 do
for var j := i to a.ColCount - 1 do
a[i, j] := j - i + 1
end;
begin
var a := MatrFill(6, 6, 0);
MyFill(a);
a.Println(2)
end.
9800p. - 100%
х-102,04%
102,04 - 100=2,04%
<span>ответ: 2,04% . Алгоритм с сожалению построить не могу. Извени. </span>
Во фразе 39 символов (включая пробелы и знаки препинания)
39*16 = 624 бит
Uses crt;
var
i: integer;
k: array [1..5] of real;
begin
clrscr;
writeln ('Input array:');
for i:=1 to 5 do
begin
write (i,') ');
readln (k[i]);
end;
writeln ('Your array:');
for i:=1 to 5 do
write (k[i],' ');
readln ();
<span>end.</span>
6 бит. конечно же . Log_2 N=6.