//PascalABC.NET
begin
var num := readinteger().ToString;
if(num.Length = num.Distinct.Count) then
write('Нет')
else
write('Да');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
//PascalABC.NET
begin
var num := readinteger().ToString;
if(num.Length = num.Distinct.Count) then
write('Нет')
else
write('Да');
end.