Получается-меяботка??!!а ты в каком классе
Var i,p:integer;
begin
p:=1;
for i:=-20 to 30 do
if i mod 3 = 0 then p*=i;
writeln(p);
<span>end.</span>
128=2^7; 8Kбайт=2^3*2^3*2^10=2^16 (бит)
2^16 : 2^14 = 2^2 (степень 2 - количество цветов)
Ответ: 2
Var x,y:real;
begin
readln(x);
if x<0 then y:=1
else if (x>=0) and (x<10) then y:=x+3
else if x>=10 then y:=x/2;
writeln(y);
<span>end.</span>
0.0814907253 Тб ≈ 85,449.2188 Мб ≈ 700,000,000 Бит
1 Тб = 1024 Гб
1 Гб = 1024 Мб
1 Мб = 1024 Кб
1 Кб = 1024 Б
1 Б = 8 Бит
Чтобы узнать размер в тех или иных величинах, нужно умножать/делить на 8 или 1024