Question

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

Формат  входных  данных

Единственная  строка  входного  файла  содержит  строку S, которая  может  состоять  из  букв  английского  алфавита  и  цифр.

Гарантируется, что  строка  не  пустая  и  ее  длина  не  превосходит  100

Формат  выходных  данных

Выведите  ответ  к  задаче

Answer 1

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. 

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

PascalABC

Answer 6

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

Answer 7

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 8

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