Содержит ли число ровно три одинаковые цифры? (Паскаль)

Содержит ли число ровно три схожие числа? (Паскаль)

Задать свой вопрос
1 ответ
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.
Давим "лучший ответ"
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт