Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {Автор: Винарский 112 гр.}
- program t12_15 (input, output);
- function num: integer;
- var
- c: char;
- begin
- read(c);
- if c <> '.' then
- begin
- if (c >= '0') and (c <= '9') then
- num := num + 1
- else
- num := num
- end
- else
- num:=0
- end;
- begin
- writeln(num)
- end.
Advertisement
Add Comment
Please, Sign In to add comment