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

Question

Информатика

Лекся

4 января, 11:42

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

+1

Ответы (1)

Знаете ответ на вопрос?

Арсеньич · Answer 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.

Нажимаем "лучший ответ"