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

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

Question

Информатика

Нюса

23 января, 17:30

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

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

+3

Ответы (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.

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

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

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