Question

Вычислить произведение нечетных чисел от 1 до n. в паскале как правильно составить всё?

Answer 1

program proizvedenie;
var i, n, k: Integer;
begin
k:= 1;
writeln('Введите n:');
readln(n);
for i:= 1 to n
do if(i mod 2 <> 0) then k:= k*i;
writeln(k);
end.

//Если PascalABC.NET, то можно написать:

program proizvedenie;
begin
var k: Integer := 1;
var n:= readInteger('Введите n:');
for i:= 1 to n
do if(i.isOdd()) then k*= i;
k.println;
end.