Определить есть ли в данном числе четные цифры и на какой позиции они стоят. Паска?
Определить есть ли в данном числе четные цифры и на какой позиции они стоят. Паска??ь. С использованием while.
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы