Дано натуральное число N. Требуется определить количество нулей среди цифр данного числа.

0 голосов
130 просмотров

Дано натуральное число N. Требуется определить количество нулей среди цифр данного числа.


Информатика (20 баллов) | 130 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var
  n:longint;
  k:integer;
begin
  Write('Введите натуральное число: '); Read(n);
  k:=0;
  while n>0 do begin
    if (n mod 10)=0 then Inc(k);
    n:=n div 10
  end;
  Writeln('Количество нулей в числе равно ',k)
end.

Тестовое решение:
Введите натуральное число: 15035003
Количество нулей в числе равно 3

(142k баллов)