Программисты, помогите! нужно написать программу на паскале дано натуральное число n. Найти произведение нечетных чисел от 1 до n. C Longint и integer.

Question

Информатика

Опра

29 августа, 02:00

Программисты, помогите! нужно написать программу на паскале дано натуральное число n. Найти произведение нечетных чисел от 1 до n. C Longint и integer.

+1

Ответы (1)

Знаете ответ на вопрос?

Петриния · Answer 1

Var

n, i: integer;

pr: longint;

begin

readln (n) ;

pr : = 1;

i : = 1;

while (i < = n) do begin

i : = i + 2;

pr : = pr * i;

end;

pr : = pr div i;

writeln (pr) ;

end.