Var x, a, b: integer; begin
readln(x);
a:=0; b:=1;
while (x mod 10) > 1 do
begin
a:=a+(x mod 10);
b:=b*2;
x:=x div 10;
end;
writeln(a); write(b);
end.
Укажите наименьшее из таких чисел x, при вводе которых алгоритм сначала печатает
12, а потом 16.

при х=2226

Объяснение:

Var

 x, a, b, i: integer;

begin

 a:=0; b:=1;

 i := 0;

 repeat begin

   inc(i);

   x := i;

   a:=0; b:=1;

   while (x mod 10) > 1 do begin

     a:=a+(x mod 10);

     b:=b*2;

     x:=x div 10;

   end;

  end;

 until (a=12) and (b=16);

 Writeln(Format('При x=%d    a=%d   b=%d', [i, a, b]));

end;