Дано трехзначное число Напишите программу которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые

Question

Дано трехзначное число Напишите программу которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a: integer; begin readln(a); if (a mod 10 = a div 100) or (a mod 10 = a div 10 mod 10) or (a div 10 mod 10 = a div 100) then writeln('Есть') else writeln('Нет'); end.