Ну если я правильно понял то что тут написано то вот на pascal'e.. )
Var n,a,b,c:byte;
begin readln(n);
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
n:=n div 10;
c:=n mod 10;
if (a=b) or (a=c) or(b=c) then writeln('да') else writeln('нет');
<span>end.</span>
Основным носителем в Египте был-папирус.
Решение приведено на фото. Если нужны будут дополнительные объяснения, сообщите
2 Гагарин | Космос | полёт
4 Гагарин | Космос
3 Гагарин & полёт
1 Космос & Гагарин & полёт