Введите трёхзначное число. Определите, все ли цифры данного числа различны и выведите **...

Question

Введите трёхзначное число. Определите, все ли цифры данного числа различны и выведите на экран соответствующее сообщение: "Различны" либо "Одинаковые".

Comments

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

---

паскаль?

---

да

Answer 1

Var  s: string;
begin
  read(s);
  if(s[1] = s[3]) or (s[2] = s[3]) or (s[1] = s[2])
    then write('Одинаковые')
  else write('Различны');
end.