Question

дано натуральное трех значное число, проверить будетли все цифры числа различными

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var n:=ReadInteger('Введите трехзначное натуральное число:');
  if n.ToString.Distinct.Count=3 then Writeln('Все цифры различны')
  else Writeln('Есть одинаковые цифры')
end.

Результаты тестирования
Введите трехзначное натуральное число: 121
Есть одинаковые цифры

Введите трехзначное натуральное число: 555
Есть одинаковые цифры

Введите трехзначное натуральное число: 490
Все цифры различны