Question

С клавиатуры вводится текст из прописных и строчных латинских букв и цифр. Ввод прекращается при нажатии клавиши Enter. Произвести следующие операции: 1) напечатать только цифры, входящие в этот текст; 2) найти процентное содержание цифр в исходном тексте.(Паскаль)

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

//Школьный вариант
Var
 s:string;
 p:real;
 se:set of char;
 i:integer;
begin
readln(s);
se:=['0','1','2','3','4','5','6','7','8','9'];
for i:=1 to length(s) do
if s[i] in se then
begin
 p:=p+1;
 write(s[i]);
end;
p:=p/(length(s)/100);
writeln;
writeln('Percent=',p);
end.

//Альтернативный вариант
Var
 s:string;
 se:set of char;
begin
readln(s);
se:=['0','1','2','3','4','5','6','7','8','9'];
s.Where(x -> x in se).Println;
writeln('Percent=',s.where(x -> x in se).Count/(length(s)/100));
end.

Пример ввода:
I3artle, Caster, 1 of 7 summoned characters.
Пример вывода:
317
Percent=6.81818181818182

Answer 2

Пример кода на Pascal для выполнения задачи:

goCopy code
program TextProcessing;

var
  inputText: string;
  digitCount, totalCount: integer;
  digitPercentage: real;
  i: integer;

begin
  digitCount := 0;
  totalCount := 0;
  write('Введите текст: ');
  readln(inputText);
  
  // Перебираем символы в тексте и проверяем, является ли символ цифрой
  for i := 1 to length(inputText) do begin
    if (inputText[i] >= '0') and (inputText[i] <= '9') then begin
      writeln(inputText[i]); // выводим цифру на экран
      digitCount := digitCount + 1; // увеличиваем счетчик цифр
    end;
    totalCount := totalCount + 1; // увеличиваем общий счетчик символов
  end;
  
  // Вычисляем процентное содержание цифр в исходном тексте
  digitPercentage := digitCount / totalCount * 100;
  writeln('Процентное содержание цифр в тексте: ', digitPercentage:0:2, '%');
  
end.

Код сначала запрашивает у пользователя ввод текста с помощью функции readln(). Затем символы текста перебираются с помощью цикла for, и каждый символ проверяется на предмет того, является ли он цифрой. Если символ является цифрой, он выводится на экран, а счетчик цифр увеличивается на единицу. В конце кода вычисляется процентное содержание цифр в тексте, которое выводится на экран.