Составьте программу которая вычисляет произведение нечетных чисел от 1 до 20

Question

Составьте программу которая вычисляет произведение нечетных чисел от 1 до 20

Answer 1

Program n_1;

var s,i:int64;

begin

   s:=1;

   for i:=2 to 20 do

       if i mod 2 = 1 then s:=s*i;

   writeln(s);

end.

Answer 2

Представлю два варианта:

1. С использованием PascalABC.NET
2. С использованием обычного Pascal

Версия PascalABC.NET - 3.4.2, сборка 1978 (12.02.2019)

---

---