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

Question

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


Пример входных данных и выходных данных:
123 - Нет
121 - Да
222 - Да

В программе использовать div и mod

помогите пожалуйста

Comments

Очевидно просят написать программу, которая обладает данным функционалом, предположительно на бейсике/паскале)

---

это вот эта последывательность чисел

---

Вот, да, Паскаль

---

я просто нифига в этом не понимаю 

---

у меня информатики воопще не было((

---

А у нас сейчас вот такие темы, и никто не понимает, а сдавать надо..

---

ну да это жесть что то мне подсказывает что скоро у детей с 1 класса физика и химия будет

---

Ага, уже в начальных классах нужно экзамены сдавать, чтобы перейти в пятый

---

ну о чем они думают демоны

---

и к еге обезательный предмет англ.яз добавили

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
Да

Comments

Замечание: на Паскале невозможно получить строку ввода-вывода вида "123 - Нет", поскольку признаком окончания ввода служит перевод строки (клавиша Enter)