Question

Дано четырехзначное число.Определите есть ли одинаковые цифры в нем. PASCAL

Answer 1

PascalABC.NET 3.4

begin
  var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строкой
  var l1 := s.Length; // всего цифр
  var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр
  if l1 = l2 then Writeln('Одинаковых цифр нет')
  else Writeln('Одинаковые цифры есть')
end.