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

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

Question

Информатика

Галинуха

27 ноября, 11:27

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

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

+2

Ответы (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.