Дано трехзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трехзначного числа одинаковые;
Паскаль
Какой язык программирования?
num = input()
print('Да' if len(set(num)) != len(num) else 'Нет')
Ответ:
program z1;
var a: integer;
begin
write('Введите трёхзначное число а = ');
readln(a);
if (a div 100 = a mod 10) or (a div 100 = a div 10 mod 10) or (a mod 10 = a div 10 mod 10) then writeln ('Да')
else writeln ('Нет')
end.
Практически нет )
Вы на питоне можете программировать?