Подсчитать количество цифр в тексте, введенном пользователем.
Решение
var
s :string;
i, count : integer;
begin
write('Введите текст: ');
readln(s);
count := 0;
for i := 1 to Length(s) do
if s[i] in ['0'..'9'] then
Inc(count);
writeln('Количество цифр в тексте: ', count);
end.
