<span><span>Делим число на 2, пока не станет равным нулю:
Целая часть от деления Остаток от деления
</span><span>474 1
</span>237</span> <span><span>0
</span>118</span> <span><span>1
</span>59</span> <span><span>0
</span>29</span> <span><span>1
</span>14</span> <span><span>1
</span>7</span> <span><span>0
</span>3</span> <span><span>1
</span>1</span> <span><span>1
</span>0</span> <span>1
</span><span>Остаток от деления записываем в обратном порядке. Получаем число в 2-ой системе счисления: 1110110101
949(10) = 1110110101(2)</span>
Var a,b,c,d,m:real;z:boolean;
Begin
read(a,b,c,d);
if (a<=b) and (b<=c) and (c<=d) then
begin
m:=max(max(a,b),max(c,d));
a:=m;
b:=m;
c:=m;
d:=m;
end
else if (a>b) and (b>c) and (c>d) then z:=true
else begin
a:=a*a;
b:=b*b;
c:=c*c;
d:=d*d;
end;
writeln(a,' ',b,' ',c,' ',d);
End.
Внешняя память. Ну мне так кажется;)
Str = float(input())
if str < 0.000001:
print(0)
else:
print(str ** -1)
Нумерованный, маркированный, раскрывающийся