Паскаль ввести целое число и определить верно ли что в его записи есть две одинаковые цифры

AgumiChan AgumiChan    3   10.07.2019 16:20    5

Ответы
sayanasssss sayanasssss  03.10.2020 00:20
Var
  N : Longint;
  s : Set of Byte;
  F : Boolean;
Begin
  s:=[]; F:=False;
  Readln(N);
  While (N>0) and not F do
    If not ((N mod 10) in s) then
    Begin
      Include(s,N mod 10);
      N:=N div 10;
    end else F:=True;
  Writeln(F);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика