Напечатайте все целые числа, лежащие в диапазоне от 1 до 260

@sadcooldie · Регистрация: 17.12.2018

Author24 — интернет-сервис помощи студентам

Напечатайте все целые числа,лежащие в диапазоне от 1 до 260,которые представимы в виде n+ $https://www.cyberforum.ru/cgi-bin/latex.cgi?{m}^{2}$ ,но которые нельзя представить в виде n+m=c,где c изменяется от 1 до 6.

@JuriiMW · 25.05.2019, 07:05

Простым перебором:

Pascal

begin
  var L := New List<integer>;
  for var n := 0 to 260 do
    begin
      var m := max(0,7-n);
      repeat
        var v := n+m*m;
        if v.inRange(1,260) and Not L.Contains(v) then L.Add(v);
        m += 1;
      until n+m*m>260;
    end;
  L.Sorted.PrintLn;
end.

@sadcooldie 0 / 0 / 0 Регистрация: 17.12.2018 Сообщений: 20
		1
	Напечатайте все целые числа, лежащие в диапазоне от 1 до 260 24.05.2019, 18:35. Показов 497. Ответов 1 Метки нет (Все метки) Напечатайте все целые числа,лежащие в диапазоне от 1 до 260,которые представимы в виде n+ $https://www.cyberforum.ru/cgi-bin/latex.cgi?{m}^{2}$ ,но которые нельзя представить в виде n+m=c,где c изменяется от 1 до 6. 0

	25.05.2019, 07:05