Question

Найдите произведение нечетных чисел от 1 до 50(while for)

Answer 1

Ответ:

На каком языке не указано, вот на паскале.

Объяснение:

var

 result, i: LongInt;

begin

 result := 1;

 for i := 1 to 50 do

   if i mod 2 <> 0 then

     result := result * i;

 writeln(result);

end.