Question

Написать функцию логического типа, проверяющую, являются ли все цифры, входящие в натуральную запись числа N различными. pascal

Answer 1

Function f(n:integer):boolean;
var m:set of 0..9; 
begin
m:=[];
f:=true;
while n>0 do
 begin
 if (n mod 10) in m then f:=false;
 m:=m+[n mod 10];
 n:=n div 10;
 end;
end;
begin
writeln(f(12321));
end.

Результат:
False

Answer 2

Вот пример функции на языке Pascal, которая проверяет, являются ли все цифры входящие в натуральную запись числа N различными:

function AreDigitsUnique(N: Integer): Boolean;
var
  digits: array[0..9] of Boolean;
  digit: Integer;
begin
  // Инициализируем массив digits значением False
  for digit := 0 to 9 do
    digits[digit] := False;

// Проверяем каждую цифру числа N
  while N > 0 do
  begin
    digit := N mod 10; // Получаем последнюю цифру числа N
    if digits[digit] then
    begin
      // Если цифра уже встречалась, возвращаем False
      Result := False;
      Exit;
    end
    else
    begin
      // Помечаем цифру как встреченную
      digits[digit] := True;
      N := N div 10; // Удаляем последнюю цифру числа N
    end;
  end;

// Если все цифры различны, возвращаем True
  Result := True;
end;

Примечание: Это пример функции, которая проверяет, являются ли все цифры в числе различными. Она возвращает значение типа Boolean: True, если все цифры различны, и False в противном случае.

Вы можете использовать эту функцию, вызывая ее и передавая число N в качестве аргумента. Например:

var
  N: Integer;
begin
  N := 12345;
  if AreDigitsUnique(N) then
    WriteLn('Все цифры числа ', N, ' различны.')
  else
    WriteLn('Не все цифры числа ', N, ' различны.');
end.

В этом примере мы передаем число 12345 в функцию `AreDigitsUnique` и выводим сообщение в зависимости от результата проверки.

Примечание: Этот код является примером и может потребовать доработки в зависимости от ваших конкретных требований и среды разработки.