Дана последовательность прлизвольных символов, подсчитать количество цифр в этой последовательности.

Question

Информатика

Северина

17 июня, 21:34

Дана последовательность прлизвольных символов, подсчитать количество цифр в этой последовательности.

+3

Ответы (1)

Знаете ответ на вопрос?

Улита · Answer 1

Var

S: string;

CountNumbers, i: byte;

begin

write ('Введите строку: ') ; readln (S) ;

for i : = 1 to Length (S) do

if S[i] in ['0' ... '9'] then CountNumbers : = CountNumbers + 1;

writeln ('Количество цифр в строке = ', CountNumbers) ;

end.