Выяснить, верно ли, что данное четырехзначное число содержит ровно три одинаковых цифры

уфаупу · Регистрация: 16.10.2012

дано четырехзначное целое число. Выяснить,верно ли,что это число содержит ровно три одинаковых цифры (3343,5055). "Free Pascal"

@Puporev · 18.10.2012, 16:20

Pascal

a:=n div 1000; b:=n div 100 mod 10; c:=n div 10 mod 10; d:=n mod 10;
if((a=b)and(a=c)and(a<>a))
or((a=b)and(a=d)and(a<>c))
or((a=c)and(a=d)and(a<>b))
or((c=b)and(c=d)and(c<>a)) then write('Число содержит ровно 3 одинаковых цифры')
else write('Число не содержит ровно 3 одинаковых цифры');

уфаупу 0 / 0 / 0 Регистрация: 16.10.2012 Сообщений: 12
		1
	Выяснить, верно ли, что данное четырехзначное число содержит ровно три одинаковых цифры 18.10.2012, 15:46. Показов 4109. Ответов 1 Метки нет (Все метки) дано четырехзначное целое число. Выяснить,верно ли,что это число содержит ровно три одинаковых цифры (3343,5055). "Free Pascal" 0

Опции темы

Выяснить, верно ли, что данное четырехзначное число содержит ровно три одинаковых цифры

Решение