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