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

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

Задать свой вопрос
Ангелина Симагова
дана последовательность - как, с клавиатуры ввести, либо константой в программке. какой язык программирования???
Данил Гусукаев
Паскаль abc
Даниил Катранов
С клавиатуры ввести
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт