Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.