Question

Дано N (N-натуральное число) целых чисел от 1 до 255. Определить среди них числа, запись которых состоит только из одинаковых цифр.
решить задачу через множества.

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:set of integer:=[];
  Writeln('Вводите натуральные числа от 1 до 255, иное число завершит ввод');
  repeat
    var n:=ReadInteger;
    if not (n in [1..255]) then break
    else s+=[n]
  until false;
  Writeln('-'*10);
  foreach var k in s do
    if k.ToString.ToCharArray.Distinct.Count=1 then Print(k)
end.

Пример
Вводите натуральные числа от 1 до 255, иное число завершит ввод
24
55
68
156
222
77
8
140
500
----------
77 8 55 222