Составить программу, которая определяет, есть ли среди цифр целого трёхзначного числа...

Question

Составить программу, которая определяет, есть ли среди цифр целого трёхзначного числа одинаковые

Answer 1

А еще есть такое вот "хитрое", но короткое решение:

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
  var s:=ReadInteger('n=').ToString.ToSortedSet;
  if s.Count<3 then Writeln('Есть одинаковые цифры')<br>  else Writeln('Нет одинаковых цифр')
end.

Тестовое решение:
n= 141
Есть одинаковые цифры

Answer 2

Var
n: integer;
begin
readln(n);
if (n mod 10 = n div 10 mod 10) or (n mod 10 = n div 100) or (n div 10 mod 10 = n div 100) then
writeln('Есть')
else
writeln('Нет');
end.