Сделать ! запишите в традиционной форме следующий вопрос, в какой последовательности будут выполняться операции? =c2+a2/q3 =(c2+a5)/3 =c2/(a5+3) =a1*a2/d12*dq3 =a1*a2/d12/d3 =a1*a2/(d12*d3 )=b2^2-d3^5q =f4+(a4*5)^3 =f4^3*a4

Как по порядку алфавита

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

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

program Number3;

var

 A: array [1..3] of Integer;             // массив для трех чисел

 i, c, s: Integer;

begin

 WriteLn ('Введите три числа: ');

 Read (A [1], A [2], A [3]);             // Ввод трех чисел с клавиатуры

 c := 0;

 for i := Low (A) to High (A) do begin   // подсчет количества положительных чисел

   if A [i] > 0 then

     c := c + 1;

 end;

 if c >= 2 then begin                    // если положительных хотя бы 2, то

   WriteLn ('Новые значения чисел: ');

   for i := Low (A) to High (A) do begin

     if (A [i] mod 2) > 0 then           // увеличиваем нечетные на 1

       A [i] := A [i] + 1;

     Write (A [i], ' ');                 // выводим их на дисплей

   end;

 end else begin

   s := 0;

   for i := Low (A) to High (A) do       // находим сумму

     s := s + A [i];

   WriteLn ('Сумма всех чисел = ', s);   // выводим сумму на дисплей

 end;

 ReadLn;

 ReadLn;

end.

Объяснение: комментарии к программе