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

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

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

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

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

ладно спс)

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.