Дано натуральное число n. Вычислить у=1*3*5...*(2n-1). Составить программу на языке Паскаль.

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

program CalculateY;

var
n, i, y: integer;

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

y := 1;

for i := 1 to n do
begin
y := y (2i - 1);
end;

writeln('The result is: ', y);

end.