Помогитееее Составить программу, которая определяет, есть ли среди цифр целого...

Question

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

Comments

Что конкретно требуется?

---

составить программу в паскале

---

Не понятно как именно. Что именно писать? Просто текст программы или же нужно написать целое приложение? Откуда будет браться целое трёх-значное число? Как программа должны выводить результат?

---

текст программы

---

тесты

---

результат тоже

Answer 1

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
  var s:=ReadInteger('n=').ToString;
  if (Pos(s[1],Copy(s,2,2))>0) or (s[2]=s[3])
  then Writeln('Есть одинаковые цифры')
  else Writeln('Нет одинаковых цифр')
end.

Тестовое решение:
n= 141
Есть одинаковые цифры

Comments

такое еще не проходили(
не понимаю

---

А это Ваши проблемы! Откуда нам всем знатб, что Вы проходили, а что нет? Надо писать в условии задания ограничения на методы решения.

---

откуда мне знать какого вы возраста

---

А возраст тут не при чем. Вам такой же ответ может дать и старшеклассник.