укажите наименьшее х,при вводе которых алгоритм печатает сначала 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 10;
end;
writeln(a);writeln(b);
end.
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 10;
end;
writeln(a);writeln(b);
end.
Answers & Comments
B=11×8 = 8 четное а=1 b=18×8=64 четное а=3 b = 1512×8=4096 четное а = 3 b = 1
Добавляем нечетное, но не более 8
Ответ : 4097, 4099, 4011, 4113