Составить программу в pascal. 1. в последовательности чисел подсчитать произведение чисел, кратных 3. 2. в последовательности чисел сравнить, что больше сумма положительных или произведение отрицательных. 3. в последовательности чисел определить предпоследнее отрицательное число. (при решении введите дополнительную переменную для хранения предпоследнего отрицательного числа

Var 1 n, pr, i, a: integer; begin readln(n); pr : = 0; for i : = 1 to n do begin read(a); if (a mod 3 = 0) then if (pr > 0) then pr : = pr * a else pr : = a; end; writeln(pr); end. 2 var n, i, pl, ot, a: integer; begin readln(n); pl : = 0; ot : = 0; for i : = 1   to n do begin read(a); if (a > =  0) then inc(pl, a) else begin if (ot < > 0) then ot : = ot * a else ot : = a; end; end; if (pl > ot) then writeln('polozitelnii) else writeln('otricat'); end. var n, i, a, posl, prd: integer; begin readln(n); posl : = 0; prd : = 0; for i : = 1 to n do begin read(a); if (a < 0) then begin prd : = posl; posl : = a; end; end; if (posl = 0) then writeln('нет отрицательных') else writeln(prd); end.

Первая (проверил, вроде работает, константа n - количество чисел в последовательности): const n = 10; var number, count, i : integer; begin       count : = 1;       for i : = 1 to n do       begin             write('input number: ');             readln(number);             if (number mod 3 = 0) and (number < > 0) then                   count : = count * number;       end;       if (count = 1) then             count : = 0;       writeln('result: ',count);       readln; end. вторая (проверил, работает, но мог недопонять условие): const n = 10; var number, positive, negative, i : integer; begin       negative : = 1; positive : = 0;       for i : = 1 to n do       begin             write('input number: ');             readln(number);             if (number > 0) then                   positive : = positive + number;             if (number < 0) then                   negative : = negative * number;       end;       writeln('positive sum: ',positive);       writeln('negative mul: ',negative);       if (positive > negative) then             writeln('sum of positive numbers bigger than mul of negative numbers.')       else if (positive < negative) then             writeln('sum of positive numbers lesser than mul of negative numbers.')       else             writeln('sum of positive numbers and mul of negative numbers are equal.');       readln; end. третья (проверил, работает): const n = 10; var number, lastneg, prevneg, i : integer; begin       lastneg : = 100; prevneg : = 100;       for i : = 1 to n do       begin             write('input number: ');             readln(number);             if (number < 0) then                   if (lastneg > 0) then                         lastneg : = number                   else                   begin                         prevneg : = lastneg;                         lastneg : = number;                   end;       end;       if (prevneg > 0) then             writeln('this sequence of numbers contains less than two negative numbers.')       else             writeln('penultimate negative number: ',prevneg);       readln; end.

b = 63

Объяснение:

1) b:= a/3 = 81/3 = 27

2) a:= b + 2*a = 27 + 2*81 = 189

3) b:= a/9*3 = 189/9 * 3 = 21 * 3 = 63

Удачи!

Пояснение небольшое:

После моего ответа, возникли сомнения, что ответ 7. И это оказалось правдой. Т.к. в последнем действии нет скобок при делении или умножении, действия выполняются по порядку. Получается, сначала мы поделим 189 на 9, а только потом умножим на 3. Как доказательство прикрепляю скриншот, на котором показан ответ программы.

ответ отредактировал, актуальный ответ - 63

Решение выше верное

Базовая структура СЛЕДОВАНИЕ указывает на то, что управление передается последовательно от одного действия к другому.

Базовая структура ВЕТВЛЕНИЕ (РАЗВИЛКА) используется в случае, когда выполнение программы может измениться в зависимости от результата проверки условия и пойти двумя разными (альтернативными) путями. Другими словами, условие является некоторым высказыванием (предикатом) и может быть истинным или ложным (принимать значение TRUE или FALSE). Каждый из путей ведет к общему выходу, так что работа алгоритма будет продолжаться независимо от того, какой путь будет выбран.

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

нц

пока условие

тело цикла (последовательность действий)

кц

Цикл с параметром. Этот вид цикла удобно использовать в тех случаях, когда заранее известно количество повторений цикла. Вводится понятие счетчика цикла, который по умолчанию считается равным либо 1, либо –1. В некоторых случаях изменение счетчика цикла (приращение) указывают явно. Для организации цикла необходимо задать верхнюю и нижнюю границы изменения счетчика цикла. В зависимости от значения верхней и нижней границы определяется шаг цикла (1 или −1), т. е. значение счетчика цикла.

нц

для i от i1 до i2

тело цикла (последовательность действий)

кц

Объяснение: