Дано натуральное число n (где n больше или равно нулю). Вычислить: z=2*5*8...*(3n-1)....

Question

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

Answer 1

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.