Задача 3 Урок 16

Строки как одномерные массивы

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

var s: string;
    i: integer;
begin
  writeln('write rnd string:');
  readln(s);
  for i:=1 to length(s) do
    begin
      if (s[i]>='0') and (s[i]<='9') then inc(n);
    end;
  writeln('This string contains ',n,' digits.');
  readln();
end.

//write rnd string:
//dasdsad21e12
//This string contains 4 digits.