Регистрация
mitaikooo
29.06.2020 13:31
Информатика
Есть ответ 👍

Решение делается в турбо паскале: "вывести на экран все четырехзначные числа, в записи которых нет одинаковых цифр! "

226
241
Посмотреть ответы 3

Ответы на вопрос:

znanijacom77
znanijacom77
4,4(28 оценок)

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.

 

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

katyunya998
katyunya998
4,6(86 оценок)

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.

Zaika111111111
Zaika111111111
4,8(4 оценок)

ответ С)документ.

Надеюсь

Популярно: Информатика