Вопрос про числа
Здравствуйте!
Пикабутяне! Помогите в такой задаче!
Панамку приготовил
Нужно сгенерировать четырехзначные числа в диапазоне от 0001 до 9999.
Но! Условие все четыре цифры должны быть разные!
То есть 0012, 3398 и тд не пойдет, нужны такие числа 1234, 5873, 0176 и тп
В гугле искал, не нашел
В программировании не силен, думаю кто шарит задача на 1 минуту
За полный список чисел готов и пару вражеских бумажек дать
var i,z,t,v,s:integer;
begin
for i:=0 to 9 do
for z:=0 to 9 do
for t:=0 to 9 do
for v:=0 to 9 do
if (i<>z) and (i<>t) and (i<>v) and (z<>t) and (z<>t) and (z<>v) and (i<>v) and (t<>v) then
write(inttostr(i)+inttostr(z)+inttostr(t)+inttostr(v)+' ');
end.