Дано натуральное число n. Вычислите произведение нечетных натуральных чисел от 1 до n. Как должна правильно выглядеть программа?

Question

Инюша

21 ноября, 11:10

+4

Ответы (1)

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

Вила · Answer 1

Program n1;

var n, i: integer;

p: real;

begin

p:=1;

readln (n) ;

for i:=1 to n do if i mod 20 then p:=p*i;

write (p) ;

end.