НА java JAVA JAVA В конце трудного рабочего дня три честных грабителя решили поделить выручку за день. В их распоряжении находятся n одинаковых алмазов.

В соответствии с «кодексом грабителей» младшему грабителю должно достаться на один алмаз меньше, чем среднему по возрасту, а среднему — на один алмаз меньше, чем самому старшему. Возможен ли такой дележ? В случае положительного ответа найдите соответствующую тройку чисел. Допустимо, что грабитель получит 0 алмазов.

Входные данные
В первой строке входного файла содержится целое число n (1 ≤ n ≤ 100) — количество алмазов.

Выходные данные
В случае положительного ответа выведите через пробел тройку неотрицательных целых чисел a (количество алмазов, которые достанутся младшему грабителю), b (количество алмазов, которые достанутся среднему грабителю), c (количество алмазов, которые достанутся старшему грабителю) таких, что a + b + c = n и a + 1 = b, b + 1 = c. Допустимо, что грабитель получит 0 алмазов.

Если такой тройки не существует, выведите единственное число -1.

👇

Увидеть ответ

Ответ:

vmse90

07.04.2021

Блин, смотрю на это, и понимаю что все впереди

4,6(18 оценок)

Открыть все ответы

Ответ:

fyjdtjjhtjh

07.04.2021

восьмеричной системе счисления есть цифры: 0, 1, 2, 3, 4, 5, 6, 7.
Сложение цифр можно рассмотреть на двоичном представлении цифр. Так как 8 = 2^3, то двоичное представление восьмиричных чисел просто:
Код:

N8 0 1 2 3 4 5 6 7
N2 000 001 010 011 100 101 110 111

Ваш пример:
Сумма младших разрядов: 48+58=118
Старшая единица переходит в сумму средних цифр (перенос).
Сумма старших разрядов:
18 + 18 = 28
Т.е. При сложении средних чисел должно получиться:
X8 + X8 + 18= 118,
Cтаршая единица результата переходит в сумму старших цифр исходного числа: 18 + 18 + 18 = 38.
Т.о. делаем заключение, что сумма средних цифр должна дать в результате 108. Такой результат можно получить:
48 + 48 = 108.
ответ: Х = 48.

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

Ответ:

kzizh

07.04.2021

Uses Crt;
Label
   BbIXOD, BBODN;
Var
   A:array[1..19,1..19] of shortint;
   i,j,N,t:integer;
Begin
Randomize;
BBODN:
Write('N = ');ReadLn(N);
ClrScr;
if (N <= 0)or(N > 19) then GOTO BBODN;
t:= 700 div N;
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
Delay(300);
For i:= N downto 1 do
    Begin
    For j:= N downto 1 do
        Begin
        if (j < N) then
           Begin
           GotoXY(j*4+1,i);
           TextBackground(0);
           Write(A[i,j+1]:3,' ');
           GotoXY(1,N+1);
           End;
        TextBackground(2);
        GotoXY(j*4-3,i);
        Write(A[i,j]:3,' ');
        Delay(t);
        if A[i,j] mod 2 = 0 then
           Begin
           Delay(700);
           if i <> j then
              Begin
              TextBackground(12);
              GotoXY(j*4-3,i);
              Write(A[i,j]:3,' ');
              Delay(700);
              TextBackground(14);
              GotoXY(i*4-3,i);
              Write(A[i,i]:3,' ');
              Delay(700);

              t:=A[i,j];
              A[i,j]:=A[i,i];
              A[i,i]:=t;

              TextBackground(14);
              GotoXY(j*4-3,i);
              Write(A[i,j]:3,' ');
              TextBackground(12);
              GotoXY(i*4-3,i);
              Write(A[i,i]:3,' ');
              Delay(700);

              TextBackground(0);
              GotoXY(j*4-3,i);
              Write(A[i,j]:3,' ');
              TextBackground(2);
              GotoXY(i*4-3,i);
              Write(A[i,i]:3,' ');
              End;
           t:=-1;
           GOTO BbIXOD;
           End
        End;
    GotoXY(1,i);
    TextBackground(0);
    Write(A[i,j]:3,' ')
    End;
BbIXOD:
TextBackground(0);
GotoXY(1,N+1);
if t >= 0 then WriteLn('Чётных элементов не обнаружено');
WriteLn('Для повторного ввода N нажмите 0');
WriteLn('Для выхода - любую другую клавишу');
if ReadKey = '0' then
   Begin
   ClrScr;
   GOTO BBODN;
   End
End.

4,6(90 оценок)

Это интересно:

Здоровье

03.04.2021

Как вылечить прищемленный палец: лечение дома и медицинские советы...

Дом-и-сад

08.01.2020

Как подготовить квартиру к отъезду: советы от профессионалов...

Транспорт

29.01.2021

Как правильно заботиться о мотоцикле и сделать его долговечным...

Финансы-и-бизнес