Var K:array [1..15] of integer;
z:integer;
begin
for i:=1 to 15 do
k:= random(56)-20;
z:=0;
for i:=1 to 15 do
if k[i]>0 then z:=z+k[i];
for i:=1 to 15 do
writeln (z);
end.
Начало и доп знаки доставь
Информацию измеряют в бит, байт, килобайт...
0 или 1 - бит
восемь 0 или 1 - байт
1024 байт = 1 Кбайт
1024 Кбайт = 1 Мбайт....
если 2048 / 2 = то сколько будет в мегабайтах
если 160 бит / 8 = то сколько будет в байтах
Ответ:
Windows 10 or Linux
Объяснение:
Немного не понял ваш вопрос
101101110= 556 (Р=8), 10100100= 244 (Р=8) .... Вроде так