Даны четырехзначные натуральные числа N и K (N, K <=1000). Из чисел от N до K выбрать те, запись которых содержит ровно три одинаковых цифры.

@Jaspio · Регистрация: 11.11.2010

Даны четырехзначные натуральные числа N и K (N, K <=1000). Из чисел от N до K выбрать те, запись которых содержит ровно три одинаковых цифры. (Например: 6766, 5444, 0006).
Подсказка: использовать при написании программы функции MOD, INT и оператор безусловного перехода GOTO.

@кот Бегемот · 11.11.2010, 20:06

Сообщение от Jaspio

Даны четырехзначные натуральные числа N и K (N, K <=1000). Из чисел от N до K выбрать те, запись которых содержит ровно три одинаковых цифры. (Например: 6766, 5444, 0006).
Подсказка: использовать при написании программы функции MOD, INT и оператор безусловного перехода GOTO.

PureBasic

INPUT "vvedite nachalo diapazona ", n
INPUT "vvedite konec diapazona ", k
FOR i = n TO k
a = i \ 1000
b = i \ 10 MOD 10
c = i \ 100 MOD 10
d = i MOD 10
IF a = b AND a = c AND a <> d OR a = b AND a = d AND a <> c OR a = c AND a = d AND a <> b OR b = c AND b = d AND b <> a THEN PRINT i;
NEXT

@Jaspio · 11.11.2010, 20:19 **[ТС]**

Большое спасибо

@Jaspio 0 / 0 / 0 Регистрация: 11.11.2010 Сообщений: 8
		1
	Даны четырехзначные натуральные числа N и K (N, K <=1000). Из чисел от N до K выбрать те, запись которых содержит ровно три одинаковых цифры. 11.11.2010, 19:50. Показов 7054. Ответов 2 Метки нет (Все метки) Даны четырехзначные натуральные числа N и K (N, K <=1000). Из чисел от N до K выбрать те, запись которых содержит ровно три одинаковых цифры. (Например: 6766, 5444, 0006). Подсказка: использовать при написании программы функции MOD, INT и оператор безусловного перехода GOTO. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Jaspio 0 / 0 / 0 Регистрация: 11.11.2010 Сообщений: 8
	11.11.2010, 20:19 [ТС]	3
	Большое спасибо 0

Опции темы

Даны четырехзначные натуральные числа N и K (N, K <=1000). Из чисел от N до K выбрать те, запись которых содержит ровно три одинаковых цифры.

Решение