ввели трехзначное число, определить есть в нем повторяющиеся ...

Нюра

var e : Integer;begin

Write('Введите число: '); Readln(e); if ((e div 100) = (e mod 100 div 10)) or ((e div 100) = (e mod 10)) or ((e mod 100 div 10) = (e mod 10)) then Write('В числе ', e, ' есть повторяющиеся цифры!') else Write('В числе ', e, ' нет повторяющихся цифр'); Readln;end.