Вариант с большим кол-вом IP 1.0.0.0. Тогда максимальное кол-во IP = 2^31 = 2147483648
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Чтобы узнать количество надо вес символа и объём
объём мы уже знаем но лучше перевести в бит
2*1024*1024*8=16777216 бит
теперь вес
мы узнаем его через алфавит
8=2^3
вес равен 3
теперь количество
16777216:3=5592405,33
округляем...
Ответ равен 5592406 символов
(если спросишь почему столько то посмотри алфавит, 8 символов на 2 МБ это будет слишком, было бы приятно почему 2 МБ если алфавит был 256 или 512)
Uses crt;
Var
n,n1,n2,n3,n4,i,Armst:integer;
Begin
Write('Введите n: '); readln(n);
Write('Числа <span>Армстронга </span>для n=',n,': ');
if n=3 then
for i:=100 to 999 do begin
n1:=i div 100;
n2:=i mod 100 div 10;
n3:=i mod 10;
Armst:=(n1*n1*n1)+(n2*n2*n2)+(n3*n3*n3);
if Armst = i then write(Armst,' ');
end;
if n=4 then
for i:=1000 to 9999 do begin
n1:=i div 1000;
n2:=i div 100 mod 10;
n3:=i mod 100 div 10;
n4:=i mod 10;
Armst:=(n1*n1*n1*n1)+(n2*n2*n2*n2)+(n3*n3*n3*n3)+(n4*n4*n4*n4);
if Armst = i then write(Armst,' ');
end;
Writeln;
Readkey;
End.