var
a:array [1..6,1..6] of integer;
i,j: integer;
begin
for i:=1 to 6 do
begin
a[i,i]:=i;
a[7-i,i]:=i;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do write(a[i,j]:2);
writeln;
end;
<span>end.</span>
1. Перевод из килобайтов в биты (1 кБ = 1024 * 8 бит = 8192 бита):
173,25 кБ = 173,25 * 8192 бита<span> = 1419264 бита
</span>
2. Перевод из байтов в биты (в одном байте 8 бит):
16,75 Б = <span>16,75 * 8 бит = 134 бита
</span>
3. Перевод из гигабайтов в терабайты (1 ТБ = 1024 ГБ):
6363 ГБ = 6363 / 1024 ТБ = 6,2138671875 ТБ
4. Перевод из гигабайтов в мегабайты (1 ГБ = 1024 МБ):
<span>27,5 ГБ = 27,5 * 1024 МБ = 28160 МБ
5. В этой фразе 41 символ. Значит, объём для её хранения равен:
41 * 16 бит = 656 бит = 656 / 8 Б = 82 Б
</span>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function MaxLen(a:array of string):=a.Select(t->t.Length).Max;
begin
var s:=Arr('первая','вторая','третья','четвертая','пятая');
s.Println;
Writeln('Макс. длина: ',MaxLen(s))
end.
<u>Пример</u>
первая вторая третья четвертая пятая
Макс. длина: 9