Question

Срочно!!! напишите программу на языке Паскаль
Условие:
Напишите программу которая вводит с клавиатуры трехзначное число и выводит ответ"да",если среди его цифр нет одинаковых

Answer 1

// PascalABC.NET

begin

   if ReadInteger.ToString.Distinct.Count = 3 then

     Print('да')

   else

     Print('нет')

end.