Урок 16(Решенная задача номер 3)

Урок 16(Решенная задача номер 3)

3)Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.

var s : string;
    i, c : integer;

begin
  writeln('vvedite stroky');
  readln(s);
  c := 0;
  for i := 1 to length(s) do
   if (s[i] >= '0') and (s[i] <= '9') then
    Inc(c);
  writeln('kol-vo cifr ravno ', c);
end.