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

Question

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

Comments

дана последовательность - как, с клавиатуры ввести, или константой в программе. какой язык программирования???

---

Паскаль abc

---

С клавиатуры ввести

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.