Решение задачи String 25

#include <iostream>
#include <string>
using namespace std;


void div2(string& s, int& mem) //Деление на 2 числового значения записанного в строке. Вывод строка делёная на 2 и остаток от деления.
{
  int i;
  string s2=s;
  mem=0;
  for (i=0;i<(int)s.length();++i){
    s2[i] = (char)(((((int)(s[i])-48)+10 * mem) / 2)+48);
    if ((((int)(s[i])-48) % 2) == 1){mem = 1;}
    else {mem = 0;}
   };
  if (s2[0]=='0'){ s2.erase(0,1);}
   s.swap(s2);
}

int main()
{
    string s,temp;
    cout << "S:";
    cin >> s;
    string srez;
    int mem=0;
    for (srez="";!(s.empty());){
        div2(s,mem);
        srez+=char(mem+48);
    }
    int i;
    for (i=0;i<(int)srez.length();++i){
        s+=srez[srez.length()-i-1];
        cout <<""<<s[i]<<endl;
    }
    cout <<"="<<s<<endl;
    return 0;
}

import random

def int2bin(i):
    if i == 0:
        return "0"
    s = ''
    while i:
        if i & 1 == 1:
            s = "1" + s
        else:
            s = "0" + s
        i = int(i/2)
    return s

for i in range(0,5):
    s_integer = str(random.randrange(1,100))
    i_integer = int(s_integer)
    print('{0} = {1:b}'.format(s_integer,i_integer))
    print('{0} = {1}'.format(s_integer,int2bin(i_integer)))
    print()
									

program String5;
var
  i:integer;
  S,Srez:string;
  rez,Num:real;
  mem:byte;
 
Procedure div2(var s:string; var mem:byte); //Деление на 2 числового значения записанного в строке. Вывод строка делёная на 2 и остаток от деления.
 var
  i:integer;
  s2:string;
begin
  mem:=0;
   S2:=S;
  for i:=1 to length(s) do
   begin
    s2[i]:= chr((((ord(s[i])-48)+10*mem) div 2)+48);
    if ((ord(s[i])-48) mod 2) = 1  then mem:=1
    else mem:=0;
   end;
   if s2[1]='0' then delete(s2,1,1);
   s:=s2;
end;
 
 
begin
 Write('S:');
 Readln (S);
 Srez:='';
 while (s<>'') do //делю на 2 остаток от деления запсываю в строку.
  begin
   div2(S,mem);
   Srez:=Srez+chr(mem+48);
  end;
 
//разворачиваю строку
 for i:=1 to Length(Srez) do S:=S+Srez[Length(Srez)-i+1];
 
 Writeln(S);
end.