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

Question

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

Comments

средство програмирования

---

Да Паскаль

---

Ответ нужен в каком виде? Есть/нет, назвать эти цифры, указать количество одинаковых, назвать цифры и указать количество одинаковых и т.п.

---

Чем замороченнее Вы захотите форму ответа, тем замороченнее рпграмма будет))

---

В паскале я не шарю)Ток Лазарус и JS

---

Составить программу,пишите попдробнее а дальше сам разберусь

---

Эникей ты можешь мою задачу решить? или нет?((

---

Можно подумать, Лазарус не Паскаль! Free Pascal с графической оберткой. "Дельфи для неимущих".

---

Я знаю)Сложно переключаться между сухим кодом и графикой)

---

Можно подумать, не надо прописывать код во всех полях

Answer 1

Var a,a1,a2,a3:integer;
begin
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
if (a1=a2)or(a1=a3)or(a2=a3)
then writeln('Одинаковые цифры есть')
else writeln('Одинаковых цифр нет');
end.

Пример:
121
Одинаковые цифры есть

Answer 2

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=Abs(ReadInteger('Введите целое трехзначное число'));
  if n.Between(100,999) then
    if n.ToString.Select(c->c).Distinct.Count<3 then<br>      Writeln('Есть одинаковые цифры')
    else Writeln('Нет одинаковых цифр')
  else Writeln('Число должно быть трехзначным')
end.