Задача в паскале: Сформировать множество, в которое входят только цифры, встретившиеся во входной строке

[Ruqeyye]

Я не поняла задачу, объясните мне ее, если вам несложно.

Сформировать множество, в которое входят только цифры, встретившиеся во входной строке.

Что значит "встретившиеся во входной строке"?

[Stilet]

Это значит ты через readln() вводишь в переменку string.
А потом в множество типа set '0'..'9' добавляешь только те символы, что представляют собой цифры.

[Ruqeyye]

спасибо, сейчас попробую

[Stilet]

Это значит ты через readln() вводишь в переменку string.
А потом в множество типа set '0'..'9' добавляешь только те символы, что представляют собой цифры.

[Ruqeyye]

program mnozhestvo;
type mn = set of char;
var s: string;
  m: mn;
i: integer;
begin
  m:=['0'..'9'];
  write('Введите строку: ');
  readln(s);
  for i:=1 to length(s) do
    if s[i] in m then write (s[i]:2)
end.

Если вам несложно, проверьте, правильно ли написала? Заранее благодарю.

[Serge_Bliznykov]

думаю, что нет.

нужно составить множество только из тех цифр, которые входят в строку.

я бы написал это примерно так:

program mnoz;
type mn = set of char;
var 
  s: string;
  m: mn;
  i: integer;
  ch : char;
begin
  m:=[];
  write('Введите строку: ');
  readln(s);
  for i:=1 to length(s) do
    if s[i] in ['0'..'9'] then Include(m, s[i]);

  {вывод содержимого множества m}
  for ch:='0' to '9' do
    if ch in m then  Write(ch,' ');
  WriteLn
end.

[Ruqeyye]

спасибо огромное! разобралась