С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после...

Question

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

Comments

Можно уточнить, какая именно версия Pascal? Потому что версии для Windows (например, PascalABC.Net) при вводе используют стандартные процедуры Windows и обработка ввода в них всегда заканчивается по нажатию клавиши Enter - в этом случае мы не можем в процессе ввода отслеживать нажатие клавиши с точкой и только в уже введенной строке вынуждены обрабатывать строку до первой точки.

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.

Comments

У Вас не использовано условие "Ввод текста прекращается после нажатия на клавиатуре точки".

---

Иногда данное условие превращают в "Концом текста является точка", именно об это я и подумал. Плюс, наверное, в условие было не количество цифр, а количество чисел, но это уже не моё дело.

---

условии*

---

На точку Вы тоже не проверяете.

---

Окей, ладно, признаю, был не прав. Если действительно углубляться в суть вопроса и делать Именно так, как в сказано в условии, то моё решение не подойдёт