Вам дана строка S.Надо определить, сколько в ней цифр Формат входных данных Единственная...

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.

Comments

Не забудьте выбрать лучший ответ)

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<br>nums := nums + 1;
WriteLn('Количество цифр в строке: ', nums);
ReadLn;
End. 

Comments

а почему у тебя всегда без отступов код?

---

потому что я пишу в программе а не здесь. Пишу, проверяю, потом копирую сюда. А при копировании ни табуляция ни даже перенос строки не сохраняются.

---

странно у меня тоже самое но все сохраняется. а ты неп пробовал настроить чтоб отступы делались не табуляцией а пробелами? какая программа кстати?

---

PascalABC

---

уже настроил. но перевод строки по прежнему не сохраняется.