Задать вопрос Регистрация
Помочь другим

Ответы 1

  • var d,i:integer;

    s:string;

    Begin

      read(d);

      s:=str(d);

      for i:= 1 to length(s) do

         if int(s[i]) mod 2=0 then

            writeln(s[i]);

    End.

    • Автор:

      nero1zzc
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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