Question

Вам дана строка S.Надо определить, сколько в ней цифрФормат входных данныхЕдинственная строка входного файла содержит строку S, которая может состоять из букв английского алфавита и цифр.Гарантируется, что строка не пустая и ее длина не превосходит 100Формат выходных данныхВыведите ответ к задаче

Answer 1

Var
  s: string;
  k, i: integer;

begin
  read(s);
  for i := 1 to length(s) do
    if (s[i] in ['0'..'9']) then
      k := K + 1;
  writeln(k);
end.

Answer 2

Program Task;
Var S: String;
i, nums: Integer;
Begin
WriteLn('Введите строку');
ReadLn(S);
If Length(S) > 100 Then
WriteLn('Ошибка. Завершение работы программы');
For i := 1 To Length(S) Do
If (Ord(S[i]) >= 48) And (Ord(S[i]) <= 57) Then
nums := nums + 1;
WriteLn('Количество цифр в строке: ', nums);
ReadLn;
End.