Question

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

Answer 1

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.