Урок 17 Задача 03

Урок 17 Задача 03

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

Решение:

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

Консоль:

vvedite stroku:
privet5mir6!
Kolichestvo cifr v stroke: 2