Дано натуральное четырехзначное число n.Определите все ли цифры в числе...

Question

Дано натуральное четырехзначное число n.Определите все ли цифры в числе различны!
ПОЖАЛУЙСТА ЗАВТРА СДАВАТЬ

Comments

на паскале?

---

нужно алггоритм сставить

---

а записать на паскале?)

Answer 1

Var 
  n: integer;
  c: set of integer;
  b: boolean;
begin
  readln(n);
  b := true;
  while (n <> 0) and b do begin
    b := b and (not ((n mod 10) in c));
    c := c + [n mod 10];
    n := n div 10;
  end;
  
  if b then writeln('различны')
  else writeln ('нет');
end.

Comments

а это точно правильно есть другие варианты как это решить а то мы подругому немного решали)))

---

т.е. вы решали и даже помните как?)
это правильно, проверьте

---

меня просто в школе долго не было пропустила эти темы вот и не понимаю)

---

делим много раз число на 10,
получаем цифры в остатке.
Добавляем цифры во множество, если добавляемая цифра уже там есть - значит число составлено не из различных цифр
Иначе - из различных

---

ладно спс)