Выполните сложение 431(8)+d07(16)=? (2)

431[8] + d07[16] = 111000100000[2]

var x,x1,x2,x3: integer; //x1- 1 число, х2- 2 число, х3 - 3 число

begin

  randomize;

  x: =random(1000)+10;

  if x div 100 > 0 then begin x1: =x div 100;

                                          x2: =(x mod 100) div 10;

                                          x3: =(x mod 100) mod 10;

                                          writeln(x,', ',x3,x2,x1);

                                  end

                          else writeln(x);

end.

     

 

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   var (a,b): =readinteger2;   if b=0 then writeln(0)   else begin       var p: int64: =a;       while b> 0 do begin           p*=b mod 10;           b: =b div 10           end;       writeln(p)       end end. пример 2342 8945923 182113920