<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.
Только решить могу . Мы не записывали дано в своё время.
Решение : 16*45*64*16=737280.
Немного исправил программу:
program Alex1;
var
a: array[1..10] of integer;
max, i: integer;
begin
for i := 1 to 10 do
read(a[i]);
writeln('Исходный массив');
for i := 1 to 10 do
write(a[i], ' ');
max := a[1];
for i := 2 to 10 do
if a[i] > max then max := a[i];
for i := 1 to 10 do
if a[i] < 0 then a[i] := max;
writeln;
writeln('Новый массив');
for i := 1 to 10 do
write(a[i], ' ');
<span>end.</span>
Ответ сколько угодно в зависимости от того кто составлял, но если интересует минимальное количество то дабы закодировать 25 символов нам понадобится минимум 5 бит 2^5=32, меньше мы просто столько же не закодируем, следовательно каждый символ в таком алфавите будет весить минимум 5 бит