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

Question

Информатика

Всеслав

25 апреля, 19:42

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

+4

Ответы (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.

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