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

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

Question

Информатика

Альбиныч

20 июня, 06:06

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

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

+1

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