var
a: array [1..25] of integer;
begin
for i: integer := 1 to 25 do
begin
a[i] := random(255);
writeln(i, ' => ', a[i]);
end;
writeln('-----------------------------------');
for i: integer := 1 to 25 do
begin
if (i mod 2 = 0) then
a[i] := a[i] * 2
else
a[i] := 0;
writeln(i, ' => ', a[i]);
end;
<span>end.</span>
Слово Александр занимает 72 бит
X = 49. Программа обработает его и выдаст "94". Сумма цифр 4 + 9 = 9 + 4 = 13.
1. a = 5;
2. a = 18;
3. a = 26;
4. a = 17;
5. a = 5;
6. a = 34;
7. a = 30, b = 17;
Інформаці́йний ви́бух<span> — значне збільшення обсягів </span>інформації<span>.</span>