Question

С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавиатуре точки. Посчитать количество цифр в этом тексте.
Программа на языке Pascal

Answer 1

var
str : string;
i, num : integer;
begin
readln(str);
num := 0;

for i := 1 to length(str) do
if str[i] in ['0'..'9'] then
num := num + 1;

writeln(num);
end.