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

Question

Информатика

Армен

22 октября, 18:27

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

+2

Ответы (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.