• С клавиатуры вводится натуральное четырёхзначное число n. Выведите количество четных цифр этого числа

Ответы 1

  • varn,g,s:integer;beginwriteln('Введите число');readln(n);for var i:=1 to 4 dobeging:=n mod 10;if g mod 2=0 then inc(s);n:=n div 10;end;writeLn(s);end.нужен другой язык - пиши
    • Автор:

      oto50k4
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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