Question

Паскаль. Множества. Дана строка символов, состоящая из букв и цифр. Напечатать цифры не входящие в эту запись

Answer 1

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

begin

 var s := ReadString.ToCharArray;

 var D := HSet('0', '1', '2', '3', '4', '5', '6', '7', '8', '9');

 D.Except(s).Print(', ')

end.

Answer 2

Для решения данной задачи на языке программирования Паскаль, нужно считать строку символов, проверить каждый символ на то, является ли он цифрой или буквой, и затем вывести цифры, которые не входят в эту запись. Вот пример программы на Паскале:

pascalCopy code
program FindNonDigits;

var
  inputString: string;
  digitsPresent: array['0'..'9'] of Boolean;
  ch: Char;

begin
  writeln('Введите строку символов:');
  readln(inputString);

  { Инициализируем массив для хранения информации о наличии цифр }
  for ch := '0' to '9' do
    digitsPresent[ch] := False;

  { Проходим по строке и отмечаем наличие цифр }
  for ch in inputString do
  begin
    if ch in ['0'..'9'] then
      digitsPresent[ch] := True;
  end;

  { Выводим цифры, которые не встречались в строке }
  writeln('Цифры не входящие в запись:');
  for ch := '0' to '9' do
  begin
    if not digitsPresent[ch] then
      write(ch, ' ');
  end;
  writeln;
end.

При выполнении этой программы вы сможете вводить строку символов, и программа выведет цифры, которые не входят в эту строку.