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

Программа на языке Pascal

Question

Информатика

Потапий

1 июня, 23:55

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

Программа на языке Pascal

+5

Ответы (1)

Знаете ответ на вопрос?

Ноня · 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.