Найдем вес 1 символа (i). Он выбирается из 25 букв и 10 цифр, т.е. N=25+10=35
N= 2^i,
35=2^i, отсюда i=6 бит
1 номер состоит из 7 символов, вес 1 номера=7*6=42 бита=6 минимально возможных байт.
80 номеров=80*6=480 байт
Var
Z: array [1..10] of integer;
i: byte;
MaxOddId, MaxEvenId: integer;
begin
randomize;
writeln(' * * * Исходный массив * * *');
for i := 1 to 10 do
begin
Z[i] := random(50)-20;
MaxOddId := Z[1];
MaxEvenId := Z[2];
write(Z[i], ' ');
end;
for i := 1 to 10 do
begin
if i mod 2 = 0 then if Z[i] > MaxEvenId then MaxEvenId := Z[i];
if i mod 2 <> 0 then if Z[i] > MaxOddId then MaxOddId := Z[i];
end;
writeln(#13+'Максимальный элемент на четных ячейках = ', MaxEvenId);
writeln('Максимальный элемент на нечетных ячейках = ', MaxOddId);
end.
Дневник,телефон,книга (газета),компьютер
Program q193766551;var i, s: Integer;begin s := 0; for i := 2 to 100 do Inc(s, i * Integer(not Odd(i))); WriteLn(s);end.