Составьте алгоритм, вычисляющий а * в, не пользуясь операцией умножения. а и в любое натуральное число.

//pascalabc.net 3.1 сборка 1239 function bintodec(bin: string): integer; begin       var n : = 0;       var p : = 1;       for var i : = length(bin) downto 1 do       begin               n += p * strtoint(bin[i]);               p *= 2;       end;       result : = n; end; begin       var s : = readlnstring('s =');       writeln(bintodec(s)); end.

pascalabc.net

function isprime(n: integer): boolean;   // простое?

begin

  if n < = 1 then

  begin

    result : = false;

    exit

  end;

  result : = true;

  var (j, r) : = (2, round(sqrt(;

  while result and (j < = r) do

    if n mod j = 0 then

    begin

      result : = false;

      exit

    end

    else

      j += 1;

end;

function ishyperprime(n: integer): boolean; // гиперпростое?

begin

  result : = false;

  var k : = 10;

  while n > 10 do

  begin

    n : = n div 10;  

    if not isprime(n) then exit

  end;  

  result : = true

end;

begin

  var (a, b) : = readinteger2;

  var found : = false;

  foreach var n in range(a, b) do

    if isprime(n) then // найдено простоe число

      if ishyperprime(n) then

      begin

        found : = true;

        n.print

      end;

  if not found then

    write(0)

end.