Ниже записан алгоритм. укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 4, а потом 0. var x, a, b, c: integer; begin readln(x); a: = 0; b: = 0; while x > 0 do begin c: = x mod 2; if c = 0 then a: = a + 1 else b: = b + 1; x: = x div 6; end; writeln(a); writeln(b); end.

Тем не менее, несмотря на ту безалаберность, с которой вы скинули задачу, я все же захотел ее решить.
По условию мы видим, что а - 4, б - 0 ( в конце задачи )
Такое может произойти из условия, что на вход поступит четное число, которое сможет поделится на 6 4 раза, ни разу не обернувшись в нечетное, ибо тогда станет б>0, что не есть верно.
6^4 = 1296, именно это и есть ответ. ответ: 1296