Question

С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавиатуре точки. Посчитать количество цифр в этом тексте. Программа на языке Pascal

Answer 1

Var
str : string;
i, num : integer;
begin
readln(str);
num := 0;

for i := 1 to length(str) do
if str[i] in ['0'..'9'] then
num := num + 1;

writeln(num);
end.

Answer 2

Вот пример программы на языке Pascal, которая считает количество цифр в тексте, введенном с клавиатуры до точки:

pascalCopy code
program CountDigits;

var
  text: string;
  digitCount, i: integer;
  
begin
  text := '';
  digitCount := 0;
  
  writeln('Введите текст. Ввод прекратится после ввода точки (.)');
  
  while text <> '.' do
  begin
    readln(text);
    
    for i := 1 to length(text) do
    begin
      if text[i] in ['0'..'9'] then
        digitCount := digitCount + 1;
    end;
  end;
  
  writeln('Количество цифр в тексте: ', digitCount);
end.

В данной программе используется переменная text для хранения вводимого текста и переменная digitCount для подсчета количества цифр. Цикл while выполняется до тех пор, пока не будет введена точка (text <> '.'). Внутри цикла происходит чтение строки с помощью readln, а затем происходит проверка каждого символа строки. Если символ является цифрой (text[i] in ['0'..'9']), то переменная digitCount увеличивается на 1. По завершении цикла выводится количество найденных цифр.

Обратите внимание, что в Pascal индексация символов строки начинается с 1, поэтому в цикле используется text[i]. Также перед использованием этого кода в Pascal необходимо убедиться, что ваша среда разработки правильно поддерживает кириллицу и все символы скопированы и вставлены в код без искажений.