Задача, паскаль

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

Question

Информатика

Русланыч

4 декабря, 01:58

Задача, паскаль

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

+4

Ответы (1)

Знаете ответ?

Игуля · Answer 1

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.

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

Задача, паскаль

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