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

Ответы 3

  • здесь ошибка. надо квадраты prod:=prod+i*i;
  • исправил
  • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years