Question

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

Answer 1

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.