Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр

@Airat007 · Регистрация: 15.10.2011

Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр.

@CodeR · 08.11.2012, 13:43

Pascal

Var i,j,n:longint;
    mn:set of byte;
Begin
    For i:=1000 to 9999 do
    Begin
      j:=0;n:=i;mn:=[];
      While n>0 do
      Begin
        if n mod 10 in mn then j:=1;
        mn:=mn+[n mod 10 ];
        n:=n div 10;
      End;
      if j=0 then writeln(i);
    End;
    readln;
End.

@Airat007 0 / 0 / 0 Регистрация: 15.10.2011 Сообщений: 23
		1
	Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр 08.11.2012, 13:26. Просмотров 3249. Ответов 1 Метки нет (Все метки) Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр. 0

Опции темы

Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр

Решение