РЕШИТЕ В ПАСКАЛЕ: "Циклический алгоритм " В данной строке определить количество цифр.

Question

РЕШИТЕ В ПАСКАЛЕ: "Циклический алгоритм "
В данной строке определить количество цифр.

Answer 1

Var
 str:string;
 count,i:integer;

begin
 count:=0;
 readln(str);
 for i:=1 to Length(str) do
  if (str[i]>'0') AND (str[i]<'9') then<br>   count:=count+1;
 writeln(count);
end.