• Напишите программу: Посчитать количество четных цифр в числе, введенном с клавиатуры. pascal

Ответы 6

  • Ваша программа неработоспособна. 1) нет end. 2) нет вывода
    • Автор:

      jimenez
    • 5 лет назад
    • 0
  • исправил
  • 1) После a mod 10 нет точки с запятой - это ошибка. 2) Попробуйте запустить свою программу и посмотрите результаты для введенных значений 0 и -2468
  • Похоже, Вам все же надо программы свои пробовать выполнять, а не писать сюда тексты "от балды".
    • Автор:

      camilo
    • 5 лет назад
    • 0
  • Я не совсем понимаю что обозначает .IsEven и k+=1.Можно ли заменить эти строки чем-то другим?
  • PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!begin  var (n,k):=(Abs(ReadInteger('n=')),0);  if n=0 then k:=1  else    while n>0 do begin      if (n mod 10).IsEven then k+=1;      n:=n div 10      end;  Writeln('Четных цифр: ',k)end.Примерn= -623451Четных цифр: 3
    • Автор:

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

Войти через Google

или

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

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

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