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