Var s,a,b,c:Integer; begin Read(s); a:= s div 100; b:= s div 10 mod 10; c:= s mod 10; if (a=b) and (b=c) then WriteLn('Содержит') else WriteLn('Не содержит'); end. Нажимаем "лучший ответ"
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
