SHARE
TWEET

Untitled

a guest Oct 12th, 2017 44 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. uses crt;
  2. var c:byte;
  3.      n:longint;
  4. begin
  5.   read(n);
  6.   c:=0;
  7.   while n>0 do
  8.     begin
  9.      if n mod 10=0 then c:=c+1;
  10.      n:=n div 10;
  11.     end;
  12.    write (c);
  13. end.
RAW Paste Data
Top