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

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.

// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin   var aw: =readlnstring('введите строку: ').towords;   var c: =readlnchar('введите букву: ');   var s: =aw.where(w-> w.last=c).joinintostring(',');   s.println end. пример введите строку: моя замечательная и вообще чудесная строка введите букву: я моя,замечательная,чудесная примечание: непонятно, зачем в говорится о счете количества слов, если не сказано, что с этим количеством делать.

Уровень c #include < iostream> using namespace std; int main() {     int n;     cin > > n;     int maxdigit = 0;     while (n > 0) {         int digit = n % 10;         if (digit > maxdigit)             maxdigit = digit;         n /= 10;     }     cout < < maxdigit;     return 0; } уровень d #include < iostream> using namespace std; int main(){     int n;     cin > > n;     int prev = -1;     while (n > 0) {         int digit = n % 10;         if (digit == prev) {             cout < < "yes";             return 0;         }         prev = digit;         n /= 10;     }     cout < < "no";     return 0; }