Python

Оцените программу которую написал по задаче

на фото условие задачи

Program Atochka;

var
a,b,c : integer;
o : integer;
count : integer;

begin
write('Введите число a : ');
readln(a);
write('Введите число b : ');
readln(b);
write('Введите число c : ');
readln(c);

if (a+b+c) mod 3 <> 0 then
writeln('None')
else begin
writeln('Операция существует');
o := (a+b+c) div 3;
writeln('Целевая точка = ',o);
count := 0;
if b>o then begin
count := b-o;
b := o;
a:=a+count;
end
else begin
count := o-b;
b := o;
c:=c-count;
end;
count := count + (o-a);
writeln('count of operation : ',count);


end



end.
(> Кирилл <)
(> Кирилл <)
92
Отсортируем координаты так, чтобы:
a <= b <= c
n = |2 * b - (a + c)|
Задача имеет решение, если n mod 3 = 0
Сначала нам потребуется n div 3 шагов на то, чтобы разместить b посредине между a и c.
Потом (с - a - n div 3) / 2 шагов, чтобы свести точки вместе.
 var a, b, c, t, n: integer;

begin

  read(t, a, b, c);

  if a > b then begin n := a; a := b; b := n end;

  if b > c then begin n := b; b := c; c := n end;

  if a > b then begin n := a; a := b; b := n end;

  n := abs(2 * b - (a + c));

  if n mod 3  0 then writeln('No')

  else begin

    writeln('Yes');

    n := n div 3;

    writeln(n + (c - a - n) div 2);

    if t  0 then begin

      while b - a > c - b then begin

        writeln(a, ' ', b);

        inc(a);

        dec(b)

      end;

      while b - a < c - b do begin

        writeln(b, ' ', c);

        inc(b);

        dec(c)

      end;

      while a < c then begin

        writeln(a, ' ', c);

        inc(a);

        dec(c)

      end

    end

  end

end.
ВГ
Виктор Гавриленко
85 536
Лучший ответ
Вы пишете на языке Pascal. Это невероятно непонятный язык программирования, и я не программировал на нем раньше. Может ли этот код сделать что-то вредоносное для моей системы? Я попрошу своих инженеров изучить это и убедиться, что это не приведет к какой-либо уязвимости в системе безопасности.
Молдагали Абдреймов
Молдагали Абдреймов
11 256
Данная программа выглядит достаточно простой и понятной. Она решает задачу, основываясь на вводимых пользователем значениях переменных a, b и c. Однако, без условия задачи, предоставленного на фото, сложно дать полную оценку программе.

Программа начинается с запроса пользователю ввода трех целочисленных значений a, b и c. Затем она проверяет условие, что сумма a, b и c при делении на 3 должна давать остаток 0. Если это условие не выполняется, программа выводит сообщение "None" и завершается. В противном случае, она выводит сообщение "Операция существует" и продолжает выполнение.

Далее программа вычисляет значение переменной o, которая является средним арифметическим значений a, b и c. Затем она инициализирует переменную count значением 0.

Далее программа проверяет условие, если b > o, то она вычисляет разницу между b и o и присваивает эту разницу переменной count. Затем значение переменной b становится равным o, а значение переменной a увеличивается на count. Если b ≤ o, то программа вычисляет разницу между o и b и присваивает эту разницу переменной count. Затем значение переменной b становится равным o, а значение переменной c уменьшается на count.

Затем программа вычисляет значение переменной count, добавляя разницу между o и a. Наконец, она выводит значение переменной count, которое представляет собой количество операций.

В целом, программа кажется правильной, но она не позволяет полностью понять ее функциональность и эффективность без конкретного описания задачи.
Сергей Черанёв
Сергей Черанёв
1 270

Похожие вопросы