Дано натуральное число n(n меньше или=9999)учитивая всё читире цифры числа,узнать,есть ли правельным что оно имеет все разние цыфры.(паскаль)
Дано натуральное число n(n<или=9999)учитивая всё читире цифры числа,узнать,есть ли правельным что оно имеет все разние цыфры.(паскаль)
Гость
Ответ(ы) на вопрос:
Гость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;
Не нашли ответ?
Похожие вопросы