Question

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

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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

ладно спс)