Var
x,i:integer;
f:boolean;
begin
f:=true;
for i:=1 to 3 do
begin
write('Введите N',i,': ');
readln(x);
if x>=5 then f:=false;
end;
if f then writeln('Все товары хорошие') else writeln('Есть плохие товары')
<span>end.</span>
Значение переменной y в команде x:=x+y не меняется, т.е y=25
x(новое) = x(старое)+y ⇒ x(старое) = x(новое)-y = 7-25 = -18
Ответ: x=-18; y=25
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 31 шт
i = 8 бит
I - ?
Решение:
I = K * i = 31 * 8 бит = 248.0 бит
1 байт = 8 бит
1 килобайт = 1024 байт
Следовательно: 1 килобайт = 8192 бит
Лови фото на фото второй пример перевода из двоичной в десятичную, из четверичной принцип тот же