Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.