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

Предыдущий
вопрос Следующий
вопрос

program CalculateZ;

var
n, i: integer;
z: integer;

begin
write('Enter a natural number n: ');
readln(n);

z := 1;

for i := 1 to n do
begin
z := z (3 i - 1);
end;

writeln('The result is: ', z);
end.