25*80=2000 символов на экране
Unicode 16 битный:
2000*16=32000 бит (4000 байт)
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(3,9,1,3,5,8,5,3,6,7,6,5,4,6,1,81); a.Println;
a.IndexesOf(t->t=a.Min).Select(t->t+1).Println
end.
<u>Результат</u>
3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81
3 15
1000 байтов,1024 бита,10 битов,1 байт, 1 бит.(1 байт=8 бит)
Рассматриваем <span>IP адрес: 215628319, начиная с конца и помня, что октет не может содержать число большее 255.
Слева-направо выделяем октеты: 19 (319>255 - нельзя), 83, 62, 215.
Получаем единственно возможный адрес 215.62.83.19
</span>
var a:array[1..10,1..10]of integer;
i,j,k,s:integer;
begin
for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random(9)+1;
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j],' '); if j=10 then writeln; end;
s:=1;
for i:=2 to 10 do begin k:=a[i,1];
for j:=2 to 10 do begin
if i mod 2 = 0 then if a[i,j]>k then k:=a[i,j];
if (j=10) and (i mod 2=0) then s:=s*k;
end;
end;