Var a,b,c,x,y:real;
begin
writeln('Введите рёбра кирпича через пробел');
readln(a,b,c);
writeln('Введите размеры дыры');
readln(y,x);
if (a<c) and (b<c) then begin if (a<x)and(b<y) or (a<y) and (b<x) then write('Пройдёт')end
else if (b<a) and ((b<x)and(c<y) or (b<y) and (c<x) ) then write('пройдёт')
else if (a<y) and ((c<x)and(a<y) or (c<y) and (a<x)) then write('пройдёт')
else write ('не пройдёт');
<span>end.</span>
Var
m,n,i: byte;
begin
writeln ('M=');
writeln ('N=');
readln(m);
readln(n);
for i:=n to m do
if i mod 2=0 then write (i,' ');
readln;
end.
6721
Шестнадцатеричная система - 1a41.
Двоичная система - 1101001000001.
Ответ:
Носитель информации - материальный объект, на котором можно тем или иным
способом зафиксировать информацию
N=2^i;
128=2^7 => i=7 бит
I=k*i=120*7=840 бит/8 = 105 байт
Ответ: 105 байт