Что бы из десятичного перевести в нужную сс нужно делить на основание этой сс, в данном случае это 2:
35/2=17(1)
17/2=8(1)
8/2=4(0)
4/2=2(0)
2/2=1(0)
1/2=0(1)
Читаем остаток с конца это и <u>будет ответом: 4) 100011 </u>
Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
<span>end.
</span>Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.
Наполняем а вылеваем в б (0,7)
также еше 2 раза пока б не заполнится а в а останется 4 литра(4,17)
опустошаем б и вливаем все из а (0,4)
вливаем из а в б2 раза по 7 и б заполнится полностью а в а останится 1 литр (1,17)
полная последовательность действий в числах (a,b)
(7,0)
(0,7)
(7,7)
(0,14)
(7,14)
(4,17)
(4,0)
(0,4)
(7,4)
(0,11)
(7,11)
(1,17)