Вводится натуральное число N (N меньше 10000) Выяснить, верно ли, что в его записи все цифры различны?
Вводится натуральное число N (N<10000) Выяснить, верно ли, что в его записи все цифры различны?
Гость
Ответ(ы) на вопрос:
Гостьprogram gt;
var a:array[1..10]of integer;
p,n,i:integer;
begin
readln(n);
p:=0;
while n>0 do
begin
inc(a[n mod 10]);
n:=n div 10;
if(a[n mod 10]>1)then p:=1;
end;
if(p=1)then writeln('NO') else writeln('YES');
end.
Не нашли ответ?
Похожие вопросы