fork download
copy 
  1. program ideone;
  2. var 
  3.   n, d:integer;
  4.   a: array[0..9] of integer;
  5.   distinct: boolean;
  6. begin
  7.   readln(n);
  8.   distinct := true;
  9.   while n>0 do
  10.   begin
  11.     d := n mod 10;
  12.     inc(a[d]);
  13.     if a[d] > 1 then begin
  14.       distinct := false;
  15.       break;
  16.     end;
  17.   n:=n div 10;
  18.   end;
  19.   if distinct then write('В числе все цифры разные')
  20.   else write('В числе есть одинаковые цифры');
  21. end.
Success #stdin #stdout 0s 4212KB
comments (?)
stdin
copy 
23507
stdout
copy 
В числе все цифры разные
https://ideone.com/BzPoML
language:
Pascal (fpc 3.0.4)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!