Случайным образом задано 1000<n<=9999. Выяснить, различны ли все цифры этого числа. Pascal ABC

  • var
    a:array[1..100]of integer;
    n,i,c,k,j,x:integer;
    begin
    readln(n);
    c:=n;
    while n<>0 do begin
    n:=n div 10;
    k:=k+1;
    end;
    for i:=1 to k do begin
    a[i]:=c mod 10;
    c:=c div 10;
    end;
    for i:=1 to k do
    write(a[i],’ ‘);
    j:=2;
    for i:=1 to k do begin
    while j<>k do begin
    if (a[i]=a[j]) and (i<>j) then
    x:=x+1;
    j:=j+1;
    end;
    j:=2;
    end;
    writeln;
    write(x,’  повторов’);
    writeln;i
    f x=0 then writeln(‘все числа различны’)
    else writeln(‘числа в числе повторяются’)
    end.



See also: