Ответы
Ответ дал:
0
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.
Нажимаем "лучший ответ"
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.
Нажимаем "лучший ответ"
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад