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

Question

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

Annetaolk963 · Answer

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