Напишите программу, которая находит все различные цифры в символьной строке - Pascal ABC

Формулировка задачи:

Напишите программу, которая находит все различные цифры в символьной строке. Входные данные На вход программе подаётся символьная строка. Выходные данные Программа должна вывести в одной строке все различные цифры, которые встречаются в исходной строке, в порядке возрастания. Если в строке нет цифр, нужно вывести слово 'NO'. Примеры: входные данные ab1n32kz2 выходные данные 123 входные данные asdasd выходные данные NO

Код к задаче: «Напишите программу, которая находит все различные цифры в символьной строке - Pascal ABC»

textual
var s: string;
    i: integer;
    c: char;
    m: set of char;
begin
  m := [];
  readln(s);
  for i := 1 to length(s) do if s[i] in ['0'..'9'] then include(m, s[i]);
  if m = []
    then write('NO')
    else for c := '0' to '9' do if c in m then write(c)
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ