Выведите ** экран в одну строку квадраты всех натуральных чисел, меньших данного N. В...

Question

Выведите на экран в одну строку квадраты всех натуральных чисел, меньших данного N. В Pascal)

Answer 1

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var n:=ReadInteger('n=');
  SeqGen(n-1,x->x*x,1).Println
end.

Тестовое решение:
n= 15
1 4 9 16 25 36 49 64 81 100 121 144 169 196

Comments

Тестовое решение не верно, ибо в условии сказано: меньше данного N/

---

Да неужели? Квадрат 15 равен 225, если что.

---

В условии сказано "чисел, меньших данного N". N=15 в тестовом решении, квадрат 15 уже не выводился.

---

И, к сведению, пометка верных решений ошибочными наказуема.

---

Пардон, прошу прощения

---

Но ИМХО должно было быть: 1 4 9 (числа<15, из которых извлекается корень)

---

Для такого имхо в условии должно быть написано не меньшИХ данного, а меньшИЕ данного. Тогда можно отнести это слово по согласованию к "квадраты".