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

сначала 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

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.

2я скобка после --> всегда будет ложно 

а значит и 1 должна быть ложна т.к 0 --> 0 = 1,дгугие случаи не подходят.

ну и если поставить пару значений посчитать то х=2 самый лучший вариант

(25< 2(2+1)(2+> (2< 1)

25< 24 это лож

и 2< 1 тоже лож. а 0 --> 0 есть 1