Перевод из двоичной системы в восьмеричную очень прост. Влево и вправо от запятой (десятичной точки) двоичное число разбивается на группы, содержащие три разряда (триАды). А затем каждая триада заменяется соответствующей восьмеричной цифрой.
<span>1 100 101(2) = 145(8)</span>
1.
Var S : String;
i : Byte;
Begin
Readln(S);
For i:=Length(S) downto 1 do Write(S[i]);
Writeln;
end.
2.
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Var S : String;
Begin
Readln(S);
Writeln(StRevers(S));
end.
4 Кб = 1024 байта x 4 = 4096 байт
Цифры? 1234567890 ******************************************************