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

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

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

program U16Z3;
var s: string;
    i,n: integer;
begin
  writeln('vvedite stroku s');
  readln(s);
  n:=0;
  for i:=1 to length(s) do
    if (s[i]>='0') and(s[i]<='9') then
      n:=n+1;
  writeln('chislo cifr v stroke = ',n);
  readln();
end.