Question

Дано натуральное число n.Определить сколько в числе нулей.Pascal ABC

Answer 1

Var n,i:longint; begin read (n); i:=0; repeat if (n mod 10 = 0) then i:=i+1; n:= n div 10; until (n=0); writeln(i); End.

Answer 2

нужно другое решение попроще!

Answer 3

Var i:integer;
c:char;
begin
repeat
read(c);
if (ord(c)=48) then i:=i+1;
until (c='');
writeln(i);
End.

Answer 4

Так попроще, но только после ввода числа надо обязательно пробел ставить

Answer 5

Var i:integer;
c:char;
begin
repeat
read(c);
if (ord(c)=48) then i:=i+1;
until (c=' ');
writeln(i);
End.