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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.