Question

Дано трехзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трехзначного числа одинаковые. Пример входных данных и выходных данных: 123 - Нет 121 - Да 222 - Да В программе использовать div и mod помогите пожалуйста

Answer 1

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
var
  n,d1,d2,d3:integer;
begin
  Write('n='); Read(n);
  d1:=n div 100; d3:= n mod 10;
  d2:=(n div 10) mod 10;
  if (d1=d2) or (d1=d3) or (d2=d3) then Writeln('Да')
  else Writeln('Нет')
end.

Тестовые решения:
n=123
Нет

n=121
Да

n=222
Да

Answer 2

Для решения этой задачи, вы можете использовать операции деления (`div`) и взятия остатка (`mod`) для получения цифр числа и затем сравнивать их между собой. Вот пример программы на языке программирования Python: ```python # Ввод трехзначного числа от пользователя num = int(input("Введите трехзначное число: ")) # Получаем цифры числа, используя деление и взятие остатка digit1 = num // 100 # Получаем первую цифру digit2 = (num // 10) % 10 # Получаем вторую цифру digit3 = num % 10 # Получаем третью цифру # Проверяем наличие одинаковых цифр if digit1 == digit2 or digit1 == digit3 or digit2 == digit3: print("Да, есть одинаковые цифры.") else: print("Нет, нет одинаковых цифр.") ``` Эта программа сначала получает трехзначное число от пользователя. Затем она разделяет число на его цифры, используя деление и взятие остатка. После этого она сравнивает цифры между собой и выводит соответствующее сообщение. Если хотя бы две цифры одинаковы, программа сообщит, что они есть в числе. В противном случае она сообщит, что нет одинаковых цифр.