• Дано натуральное число N. Напишите функцию (Pascal), определяющую количество нулей среди всех цифр числа N.

    Входные данные
    Задано единственное число N

    Выходные данные
    Необходимо вывести количество нулей среди всех цифр числа N.

    Примеры
    входные данные
    100
    выходные данные
    2

Ответы 2

  • Ни малейшего понятия не имею о том, что именно Вы проходили
    • Автор:

      serena
    • 6 лет назад
    • 0
  • function ABC(A:integer):integer;Beginresult:=0;While A>0 do   Begin   if A mod 10 = 0 then result:=result+1;   A:=A div 10;   End;End;Var A:integer;BeginRead(A);WriteLn(ABC(A));End.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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