Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
  S : String;
  m : Set of Char;
  i : Byte;
Begin
  m:=[];
  Readln(S);
  For i:=1 to Length(S) do If S[i] in [0..9] then Include(m,S[i]);
  For i:=0 to 10 do If Chr(Ord(0)+i) in m then Write(i);
  Writeln;
end.