Найдите наибольшее число I, при вводе которого алгоритм печатает сначала 2, а потом 1.

var I, A, B, C: longint;

begin

readln(I);

A:= 0; B:= 0;

while I > 0 do begin

C:= I mod 2;

if C = 0 then A:= A + 1

else B:= B + 1;

I:= I div 12;

end;

writeln(A);

writeln(B);

end.

nikaa5522    2   30.04.2020 15:54    0