Question

Паскаль:с Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если произведение этих чисел положительно, то выведите утроенное значение каждого числа. Если сумма первого и третьего чисел отрицательна, то выведите эти два числа и их сумму. если выполняются одновременно два перечисленных выше условия, то выведите четыре числа без изменения. иначе, выведите сумму этих четырех чисел, уменьшенную в два раза. составьте соответствующие отладочные примеры и проверьте работу каждой программы.

Answer 1

program zadacha_1;

var n1,n2,n3,n4:integer //Здесь храним значение 4 чисел

begin

writeln('Введи 4 числа');

readln(n1,n2,n3,n4);

if (n1*n2*n3*n4)>0 then writeln(n1*3,' ',n2*3,' ',n3*3,' ',n4*4)

else if (n1+n3)<0 then writeln(n1,' ',n3,' их сумма равна ',n1+n3)

else if ((n1*n2*n3*n4)>0 and (n1+n3)<0) then writeln(n1,' ',n2,' ',n3,' ',n4)

else writeln((n1+n2+n3+n4)div 2);

end.

Answer 2

Решение задачи на языке программирования Паскаль

Для решения данной задачи на языке программирования Паскаль, необходимо выполнить следующие шаги:

1. Ввести с клавиатуры четыре произвольных числа. 2. Проверить условия задачи и выполнить соответствующие действия. 3. Вывести результаты на экран.

Вот пример кода на языке Паскаль, который решает данную задачу:

program Task;

var
  num1, num2, num3, num4: integer;
  product: integer;
  sum: integer;

begin
  // Ввод четырех чисел с клавиатуры
  writeln('Введите четыре числа:');
  readln(num1, num2, num3, num4);

// Проверка условий и выполнение соответствующих действий
  product := num1 * num2 * num3 * num4;
  sum := num1 + num3;

if product > 0 then
  begin
    // Вывод утроенного значения каждого числа
    writeln('Утроенные значения чисел:', num1 * 3, num2 * 3, num3 * 3, num4 * 3);
  end
  else if sum < 0 then
  begin
    // Вывод двух чисел и их суммы
    writeln('Два числа и их сумма:', num1, num3, sum);
  end
  else if (product > 0) and (sum < 0) then
  begin
    // Вывод четырех чисел без изменения
    writeln('Четыре числа без изменения:', num1, num2, num3, num4);
  end
  else
  begin
    // Вывод суммы четырех чисел, уменьшенной в два раза
    writeln('Сумма четырех чисел, уменьшенная в два раза:', (num1 + num2 + num3 + num4) / 2);
  end;
end.

Примеры отладки

Пример 1: ``` Введите четыре числа: 2 3 4 5 Утроенные значения чисел: 6 9 12 15 ```

Пример 2: ``` Введите четыре числа: -1 2 -3 4 Два числа и их сумма: -1 -3 -4 ```

Пример 3: ``` Введите четыре числа: 1 2 3 4 Сумма четырех чисел, уменьшенная в два раза: 5 ```

Проверка работы программы

Вы можете ввести различные значения и проверить, соответствуют ли результаты вашим ожиданиям.