Составить программу вычисления количества натуральных нечётных чисел сумма квадратов...

Question

Составить программу вычисления количества натуральных нечётных чисел сумма квадратов которых не превысит 1000.( на Паскале)

Comments

Какое-то задание некорректное. Квадратный корень из 1000 это 31 с избытком. Любое из нечетных чисел 1,3,5, ... 31 даст значение меньшее 1000. Любые два из этих 16 чисел могут быть задействованы в получении суммы их квадратов, не превышающей 1000.

---

Так....теперь переплата... и как её считать?

---

Да, пробовал разными циклами. Приходится удалять последне вычесление

---

Если идти в лоб и складывать квадраты нечетных

---

Про переплату влетело сообщение из другого вопроса....просо чудеса

Answer 1

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var
  a, s, n: integer;
begin
  while s < 1000 do
  begin
    if a mod 2 <> 0 then begin
      s := s + sqr(a);
      n := n + 1;
    end;
    a := a + 1;
  end;
  writeln(n-1);
end.