Напишите программу, которая на вход получает целое число и проверяет, есть ли в числе 2 одинаковые цифры (pascal, с использованием циклов)

Var a: array[0..9] of integer;
    i,n,k: integer;
    pr: string;
begin
   pr:=нет;
   for i:=0 to 9 do a[i]:=0;
   write(число: );  readln(n);
   repeat
     k:=n mod 10;
     a[k]:=a[k]+1;
     if a[k]>1 then
     begin
       pr:=есть;
       break;
     end;  
     n:=n div 10;
   until n=0;
   writeln(pr);
end.

ввод - вывод

число: 122456
есть

число: 12546
нет

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.