Question

Напишите программу которая определяет Верно ли что введенное число содержит по крайней мере две одинаковые цифры Возможно не стоящие рядом Паскаль ABC net

Answer 1

Var
  A,B,C,D:integer;
Begin
  Write('Введите целое число: ');ReadLn(A);
  C := 0;
  While (A <> 0)and(C < 1) do
  Begin
    C := 0;
    B := A mod 10;
    A := A div 10;
    D := A;
    while D <> 0 do
    begin
      if D mod 10 = B then
        C := 1;
      D := D div 10;
    end;
  End;
  if (C = 1) then WriteLn('В данном числе есть одинаковые цифры')
  else WriteLn('В данном числе нет одинаковых цифр ');
End.