37)var a,b,c : real;begin readln(a, b); begin if a >= b then writeln(b, a) else writeln(a,'и', b) end; if a >= b then b:= b*a*2 else a:= b*a*2; if a>= b then a:= (a+b)/2 else b:= (a+b)/2;writeln(a,'и',b);end.
Было бы задание-ответил бы
Она работает в режиме онлайн:D
<span>c. 0+0=0, 1+0=1, 0+1=1, 1+1=0
5.</span>100110101002 на 11002≈9099263
9099263₁₀=1000 1010 1101 0111 1111 1111₂
<span>
</span>