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

знаете что, это вы за 5 баллов написали решение, а не я. так что мне не интересно ваше мнение кто нахал и тд

// 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, иное число завершит ввод245568156222778140500----------77 8 55 222