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

Question

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

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

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

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

Answer 1

Function ABC(A:integer):integer;
Begin
result:=0;
While A>0 do
   Begin
   if A mod 10 = 0 then result:=result+1;
   A:=A div 10;
   End;
End;

Var A:integer;

Begin
Read(A);
WriteLn(ABC(A));
End.

Comments

я имел ввиду, что мы не пишем программы с result

---

На каком Паскале пишите? Turbo, Free, ABC ?

---

abc

---

Тогда должно работать именно так..

---

у меня было как то так var A,N:integer;
begin
read(A);
N:=0;
while A>0 do
begin
if A mod 10 = 0 then N:=N+1;
A:=A div 10;
end;
writeLn(N);
End.

---

и он мне 30 былов даёт

---

Если сказано написать функцию, значит нужно писать функцию.. Function имяФункции(параметры):тип функции

---

а училка мне не скажет, что я не сам и тд...

---

???

---

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