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

Question

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

Comments

100 членов натурального числа, которые имеют нечетные номера. ??

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.

Comments

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

---

исправил