[lmikle]

Сообщение от naizek

Дано трехзначное натурально число N. Верно ли что все его цифры различны? Программу создать нужно. Помогите пожалуйста, вообще не понимаю!

Код:

function CheckNumber(N : Integer) : Boolean;
var
  N1, N2, N3  : Integer;
begin
  N1 := N div 100;
  N2 := (N mod 100) div 10;
  N3 := N mod 10;
  Result := (N1 <> N2) And (N1 <> N3) And (N2 <> N3);
end;