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

Ответы 1

  • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years