Дано натуральное число n (где n больше или равно нулю). Вычислить: z=2*5*8...*(3n-1). Нужно написать программу в Паскале вида program-var-begin-writeln-write-read-end и т.д. и т.п.

Ответ: 3) вторичная моча

Var n, i, z: integer; begin write('n='); readln(n); if n = 0 then writeln('z=-1') else if (n < 0) then writeln('введено отрицательное число') else begin z : = 1; for i : = 1 to n do z : = z * 1 * (3 * i - 1); writeln('z=', z); end; end.

№3 Линий-выносок, размерных линий, полок

17 18 19 20 21 22 23 24 25 26 27 28 29 30