Задача, паскаль Ввести целое число и определить верно ли что в его записи есть две одинаковые цифры
Задача, паскаль
Ввести целое число и определить верно ли что в его записи есть две одинаковые цифры
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы