Вводится натуральное число N (N<10000) Выяснить, верно ли, что в его записи все цифры различны?
Answers & Comments
kage1998
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.
Answers & Comments
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.