Дано натуральное число N. Требуется определить количество нулей среди цифр данного числа.
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
