Укажите наименьшее х,при вводе которых алгоритм печатает сначала 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.

Question

Информатика: Укажите наименьшее х,при вводе которых алгоритм печатает сначала 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.

alina17anilaalina · Accepted Answer

#arr = [*map(int, input().split( 0 )[0].split())]  если числа вводятся в строчку , то раскомментируйте и используйте эту строку, а инициализацию массива arr и цикл while закомментируйтеarr = [] while 1:    tmp = int(input())    if tmp != 0:  # Читаем сколько угодно чисел пока не будет ноль        arr.append(tmp)    else:        break s = 0  # сумма двузначных чиселk = 0  # количество двузначных чиселfor i in arr:    if 10 = i = 99:  # итерируемся по циклу и если число двузначное        s += i  #...

Укажите наименьшее х,при вводе которых алгоритм печатает сначала 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.

MOGZ ответил

Укажите наименьшее х,при вводе которых алгоритм печатает сначала 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.