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