СРОЧНО! Решение делается в турбо паскале: "Вывести на экран все четырехзначные числа, в записи которых нет одинаковых цифр!" - №431398

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

"Вывести на экран все четырехзначные числа, в записи которых нет одинаковых цифр!"
- Предмет:
  Информатика
- Автор:
  brooklynn
- 6 лет назад

Ответы 2

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.
- Автор:
  hopkins
- 6 лет назад
- 0
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.

может длинее, но универсальное.
- Автор:
  rose13
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years