даны натуральные трехзначные числа, нужно выбрать такие, запись которых содержит два одинаковые цифры.

[TuuuZ]

даны натуральные трехзначные числа, нужно выбрать такие, запись которых содержит два одинаковые цифры. ( Paskal )

[v01d]

в цикле при помощи mod и div разбиваешь число на цифры и попутно сравниваешь разбиваемое число с предыдущим. То есть понадобятся 2 переменные - 1. для текущего числа и 2. для предыдущего. Если нашлись 2 одинаковые цифры, выходишь из цикла, запоминаешь число.

[Serge_Bliznykov]

это задачка вообще одним выражением может быть решена..

hint. (подсказка)

цифры трёхзначного числа можно получить так: 
D1 := (i div 100) mod 10; 
D2 := (i div 10) mod 10; 
D3 := i mod 10; 

if (D1=D2) or (D2=D3) or (D1=D3) 
then есть одинаковые...
else нет