Определить есть ли в данном числе четные цифры и ** какой позиции они стоят. Паскаль. С...

Question

Определить есть ли в данном числе четные цифры и на какой позиции они стоят. Паскаль. С использованием while.

Answer 1

Var
s:string;
i:integer;
begin
readln(s);
i:=1;
while(i<=length(s)) do<br> begin
if((StrToInt(s[i])mod 2)=0) then write(i,' ');
end;
end.