Question

1) Произведение 100 членов натурального числа, которые имеют нечетные номера.
2) Сумма квадратов всех четных чисел от 2 до 20
Помогите пожалуйста

Answer 1

var i:byte;
    prod:real;
    
begin
  prod:=1;
  for i:=3 to 100 do
    if odd(i) then
      prod:=prod*i;

  writeln('1). Произведение первых 100 нечетных натуральных чисел');
  writeln(prod);
  writeln();
 
  prod:=0;
  for i:=2 to 20 do
    if not odd(i) then
      prod:=prod + i * i;

  writeln('2). Сумма квадратов всех четных чисел от 2 до 20');
  writeln(prod);
  writeln();
end.

Answer 2

здесь ошибка. надо квадраты prod:=prod+i*i;

Answer 3

исправил