Question

Ребят, помогите пожалуйста срочно!
Буду благодарна!

Дано натуральное трехзначное число. Напишите программу, которая определяет:
А) есть ли среди цифер данного числа одинаковые;

Answer 1

//PascalABC.NET

begin

 var num := readinteger().ToString;

 if(num.Length = num.Distinct.Count) then

   write('Нет')

 else

   write('Да');

end.