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

pascal

Question

Информатика

Вераша

1 июля, 19:37

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

pascal

+1

Ответы (1)

Знаете ответ на вопрос?

Эдуардик · 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

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

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

pascal