Question

Дано трёхзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трёхзначного числа одинаковые; Пример входных данных: 123 121 122 Пример выходных данных: Нет Да Да

Answer 1

Program n1;
var n,i,d1,d2,d3: integer;
begin
readln(n);
d1:=n div 100;
d3:= n mod 10;
d2:=(n div 10 )mod 10;
if(d1=d2) or (d2=d3) or (d1=d3) then write('Да') else write('Нет');
end.