Ответ:
commons.wikimedia.org - три части имени
org - верхний уровень
Объяснение:
var
i, e: Integer;
s : Real;
LL : array [0..11] of Real;
LL2 : array of Real;
begin
for i:= 0 to 11 do
LL[i] := Random(101) - 100;
i := 0;
e := 0;
while i <= 11 do
begin
if LL[i] <> 0 then
begin
inc(e);
SetLength(LL2, e);
LL2[e-1] := LL[i];
s := s + LL[i];
end;
inc(i);
end;
Writeln('Кол-во ненулевых элементов = ', e);
if s < 0 then s := s * -1;
Writeln('Mодуль сумы элементов нового массива = ', s:0:3, #10#13);
for i := 0 to e - 1 do
Write(LL2[i]:0:1, ' ');
ReadLn;
end.
1. мощность - 64, начит 1 символ занимает 6 бит. а 200 символов занимают 200*6=1200 бит /8 = 150 байт.
2. 2 в 20 степени
3. мощ. =64 - 1 символ = 7 бит, если 128, то один сивол = 7 бит, значит объём второго в 7/6 раз.
4. 16 кбайт = 2 в 14 степини байт = 2 в 17 степени бит
5. 64 буквы, значит мощность = 64, а значит 1 символ = 6 бит
Прости незнаю как тебе надо оформить) так что как есть)
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.