с клавиатуры вводится строка состоящая из букв, знака пробела и циифр. определите количество цифр в этой строке

Есть ответ
17.12.2022
125

Ответ


var

  s : string;

  i, c : integer;

begin

  readln (s);

  c := 0;

  for i := 1 to length (s) do

    if (ord (s[i]) > 47) and (ord (s[i] < 58) then inc (c);

  writeln (c);

end.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.