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

Var
n, s, i, j, k: integer;
begin
writeln('Введите N');
readln(n);
s:=0;
for j:=1 to 3 do
for i:=1 to n do
  begin
  writeln('Введите зарплату ', i, ' сотрудника за ', j, ' месяц квартала');
  readln(k);
  inc(s, k);
  end;
writeln('Сумма: ', s);
end.

// C# 7.3

using System;

using System.Collections.Generic;

using System.Collections;

using System.Text;

namespace Rextester

{

   public class Program

   {

       public static void Main(string[] args)

       {

           var crypted = "";

 

           for (int i = 0; i < CaesarCipher.Ru.Length; i++)

               Console.WriteLine(CaesarCipher.Decode(i, crypted));

       }

   }

   

   class CaesarCipher

   {

       public static readonly string Ru = "";

       public static readonly string RuD = "";

       private static readonly int defaultStep = 3;

       public static CaesarEncrypted Encode(int step, string source, Func<string, string> translate)

       {

           string translatedData = translate(source);

           var stringBuilder = new StringBuilder();

           foreach (char c in translatedData.ToLower())

           {

               stringBuilder.Append(RuD[Ru.IndexOf(c) + step]);

           }

           return new CaesarEncrypted(step, stringBuilder.ToString());

       }

       public static CaesarEncrypted Encode(int step, string source)

       {

           return Encode(step, source, x => x);

       }

       public static string Decode(CaesarEncrypted source)

       {

           var step = source.Step;

           return Encode(-step + Ru.Length, source.ToString(), x => x);

       }

       public static string Decode(int step, string source)

       {

           return Encode(-step + Ru.Length, source, x => x);

       }

   }

   class CaesarEncrypted : IEnumerable, IEnumerable<char>

   {

       public int Step { get; set; }

       public string Data { get; set; }

       public CaesarEncrypted(int step, string initData)

       {

           Step = step;

           Data = initData;

       }

       public CaesarEncrypted(string initData) : this(int.MaxValue, initData)

       {}

       public IEnumerator<char> GetEnumerator()

       {

           foreach (char c in Data)

               yield return c;

       }

       IEnumerator IEnumerable.GetEnumerator() => (IEnumerator<char>)GetEnumerator();

       public override string ToString() => Data;

       public static implicit operator string(CaesarEncrypted source) => source.ToString();

   }

}

B * B * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14

или

(B**2 * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14)  — многие, но не все ЯПы, например Python, JS, Ruby; общепринятый ответ — первый.

или

3 * A + D * A + 2 * B + 3,2 * C * S * F - 4,6 * A + B * A * B + 3,14

Объяснение:

Т. к. формула уже написана арифметическим выражением, а вопрос в топике по инфе, я полагаю, что нужно представить её в алгоритмической форме. Если не так, закидайте ответ единицами :)

И так, исходная формула: ЗА + DА + 2B + 3,2CSF - 4,6А + BАВ + 3,14 = ЗА + DА + 2B + 3,2CSF - 4,6А + B²А + 3,14 = B²А + DА + ЗА + 2B + 3,2CSF - 4,6А + 3,14 = B ^ 2 * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14.

И убираем квадрат:

B * B * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14.

Если без изменений в порядке:

3 * A + D * A + 2 * B + 3,2 * C * S * F - 4,6 * A + B * A * B + 3,14.

Коротко, что сделал.

Сначала я поменял порядок для удобства (от изменения мест слагаемых сумма не меняется, аналогичное правило с произвдением и множителями). Дальше я заменил B * B на B² на алгоритмическом языке — т. е. на B * B или B ** 2, зависит от ЯПа.

Удачи!