Написать функцию логического типа, проверяющую, являются ли все цифры, входящие в натуральную запись числа N различными.
pascal
pascal
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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