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

lurudzheva lurudzheva    2   27.09.2019 01:50    4

Ответы
Макстоптыжка Макстоптыжка  08.10.2020 21:37
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика