Вводится натуральное число N (N<10000) Выяснить, верно ли, что в его записи все цифры различны?

Question

Информатика

Фридерика

5 апреля, 13:20

Вводится натуральное число N (N<10000) Выяснить, верно ли, что в его записи все цифры различны?

+1

Ответы (1)

Знаете ответ?

Кируня · Answer 1

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.