Ответы 2

  • спасибо большое
    • Автор:

      sandy
    • 5 лет назад
    • 0
  • var  b, p: real;  i: byte;begin  p := 1;  for i := 0 to 47 do  begin    b := cos(i) * (sqr(i) / (i + 8));    if (abs(b) <= 25) then      p := p * i;    if (i >= 18) then //Верхняя граница и так задана, так что нужно только нижнюю приткнуть      write(i, ' '); //Вывод очередного числа  end;  writeln(#13, p); //Вывод произведенияend.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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