следующая тема »

[04 Август 2025, 18:23:25]

Новости, реклама:

[04 Август 2025, 18:23:25]

Новости, реклама:

[podonak]

попутно решил себя развлечь и вспомнить паскаль. если где неправильно вспомнил - сорри.
ещё одно решение первоначальной задачи.
не стал упрощать уже приведённые алгоритмы (а они поддаются упрощению), а сделал ещё не приведённый здесь алгоритм (не берусь доказывать его оптимальность ;-))

var
  d: array [1..4] of byte;
  b: boolean;
  i, j, k: byte;
  x: integer;
read x;
if x > 9999
  then writeln('error in data');
  else
    begin
      bool : = false;
      if x >= 111 then
      for i := 0 to 9 do
        for j := 0 to 9 do
          if i <> j then
            for k := 1 to 4 do
              begin
                for l := 1 to 4 do
                  d[l] := i;
                d[k] := j;
                if x = ((d[1] * 10 + d[2]) * 10 + d[3]) * 10 + d[4] then
                  bool := true;
              end
      if bool then writeln('в числе три цифры одинаковы');
    end;