Question

Напишите процедуру НА ЯЗЫКЕ ПАСКАЛЬ, которая введенном тексте подсчитывает количество цифр

Answer 1

===== PascalABC.NET =====

procedure CountDigits(var n:integer);

begin

 n := 0;

 foreach var d in ReadlnString('Введите текст:') do

   if d.IsDigit then

     n +=1

end;

// тестовая программа

begin

 var k: integer;

 CountDigits(k);

 k.Println

end.

Answer 2

Приведенная ниже процедура на языке Паскаль подсчитывает количество цифр в введенном тексте:

```pascal
procedure CountDigits;
var
text: string;
digitCount: Integer;
i: Integer;
begin
digitCount := 0;

// Ввод текста
writeln('Введите текст:');
readln(text);

// Подсчет цифр в тексте
for i := 1 to Length(text) do
begin
if text[i] in ['0'..'9'] then
Inc(digitCount);
end;

// Вывод количества цифр
writeln('Количество цифр в тексте: ', digitCount);
end;
```

Процедура `CountDigits` начинается со сброса счетчика `digitCount` в 0. Затем пользователю предлагается ввести текст, который будет сохранен в переменной `text`.

Далее выполняется цикл `for`, который перебирает каждый символ в `text`. Если текущий символ является цифрой (определено проверкой `text[i] in ['0'..'9']`), то счетчик `digitCount` увеличивается на 1.

После завершения цикла выводится сообщение о количестве найденных цифр.

Пример использования процедуры:
```pascal
begin
CountDigits;
end.
```

Пользователь будет приглашен ввести текст, например: "abc123xyz456". В результате будет выведено: "Количество цифр в тексте: 6"