Уровень c. ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры (не обязательно стоящие рядом).

Есть много разных способов решения этой . например: var n: integer; b: boolean; m: set of 0..9; begin write('n='); readln(n); m: =[]; b: =false; while (n> 0) and not b  do   if n mod 10 in m then b: =true else begin m: =m+[n mod 10]; n: =n div 10; end; if b  then writeln('в записи введенного числа есть одинаковые цифры')       else writeln('в записи введенного числа нет одинаковых цифр'); end. пример: n=123432 в записи введенного числа есть одинаковые цифры

 

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

телевидение

радиовещание

интернет

газеты и т.д