дано натуральное число n(n<или=9999)учитивая всё читире цифры числа,узнать,есть ли...

Question

дано натуральное число n(n<или=9999)учитивая всё читире цифры числа,узнать,есть ли правельным что оно имеет все разние цыфры.<u>(паскаль)

Answer 1

function check(n:word):boolean; 
var i,j:word;a:array[0..3]of byte; 
begin 
check:=true; 
for i:=0to 3do begin a[ i]:=n mod 10;n:=n div 10;end; 
for i:=0to 2do for j:=i+1to 3do if a[ i]=a[j]then check:=false; 
end;