vinarsky_evgeny

Untitled

Nov 22nd, 2015
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.33 KB | None | 0 0
  1. {Автор: Винарский 112 гр.}
  2. program t12_15 (input, output);
  3.  
  4. function num: integer;
  5. var
  6.   c: char;
  7. begin
  8.   read(c);
  9.   if c <> '.' then
  10.   begin
  11.       if (c >= '0') and (c <= '9') then
  12.           num := num + 1
  13.       else
  14.           num := num
  15.   end
  16.   else
  17.       num:=0
  18. end;
  19.  
  20. begin
  21.   writeln(num)
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment