Введите натуральное многозначеое число и определите, верно ли, что в его записи есть две одинаковые цифры, не обязательно стоящие рядом. массивы еще не проходили, поэтому циклы и условия. , !

Суть в том, что переводишь число в строковый формат и далее работаешь с ним как с одномерным массивом (чем и является по сути строка). во внешнем цикле выбирается по порядку от 1 до (длина строки -1, т.е. до предпоследнего) цифра числа. во внутреннем цикле эта цифра сравнивается с каждой последующей по-порядку до тех пор пока не найдется одинаковая. если нашлась, то выход из цикла. из внешнего цикла так же предусмотрен выход если нашлась пара равных цифр. program z1; var n: int64; l: integer; s: string; i, j: byte; x: boolean; begin     writeln ('введите число');     readln (n);     str(n,s);     l: =length(s);     x: =false;       for   i: =1 to l-1 do begin         for   j: =i+1 to l do begin           if s[i]=s[j] then begin x: =true; break; end;         end;       if x=true then break;       end;     writeln (x);   end.

Const     n = 5; var     a: array[1..n] of real;     i,k: integer; begin for i: = 1 to n do       read(a[i]); k: =0; for i: = 1 to n do       if a[i]> 8 then             begin             k: =k+1;             write(a[i],' ');             end; if k=0 then writeln('таких чисел нет') end.