СРОЧНО! Решение делается в турбо паскале:

"Вывести на экран все четырехзначные числа, в записи которых нет одинаковых цифр!"

2

Ответы и объяснения

2012-02-25T08:15:21+04:00

var
a: integer;
c1, c2, c3, c4: integer;

begin
for a := 1000 to 9999 do
begin
c1 := a div 1000;
c2 := (a div 100) mod 10;
c3 := (a div 10) mod 10;
c4 := a mod 10;
if (c1 <> c2) and (c1 <> c3) and (c1 <> c4) and (c2 <> c3) and (c2 <> c4) and (c3 <> c4)
then writeln(a);
end;
end.

2012-02-25T17:33:35+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var s:string;

i,j,k:integer;

Unique:boolean;

BEGIN

  for i := 1000 to 9999 do

  begin

     s := str(i);

     Unique:=true;

     for j: = 1 to length(s)-1 do

        for k := j+1 to length(s) do

        begin

           if s[j] = s[k] then Unique:=false;

        end;

     if Unique then

       writeln(i);

  end;

END.

 

может длинее, но универсальное.