Найти произведение n первых нечетных натуральных чисел, при paskal

108

404

Посмотреть ответы 2

Ответы на вопрос:

nika12052006

Информатика

4,5(19 оценок)

Program n_1; var a,i,n: integer; begin writeln('введите количество натуральных чисел: '); readln(n); a: =1; for i: =1 to n do begin if i mod 2 < > 0 then a: =a*i end; write('произведение нечётных чисел данного диапазона равно: ', a) end.