Укажите наименьшее натуральное число, при вводе которого эта программа напечатает

сначала 2, потом – 24.

var x, a, b: longint;

begin

readln(x);

a := 0; b := 1;

while x > 0 do begin

if x mod 2 > 0 then

a := a + x mod 8

else

b := b * (x mod 8);

x := x div 8;

end;

writeln(a); write(b);

end

rafuw1    2   12.05.2020 08:11    126