Входные данные Вводятся целые числа a и b. Гарантируется, что a не превосходит b....

Question

Входные данные
Вводятся целые числа a и b. Гарантируется, что a не превосходит b.

Выходные данные
Выведите все числа на отрезке от a до b, являющиеся полными квадратами. Если таких чисел нет, то ничего выводить не нужно.

Примеры
входные данные
1
1
выходные данные
1
входные данные
2
8
выходные данные
4
Заранее спасибо.

Answer 1

Var a, b, i: integer;
begin
  read(a, b);
  for i := trunc(sqrt(a)+ 1 - 1e-9) to trunc(sqrt(b)) do
    writeln(i*i);
end.

Answer 2

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  var a,b:integer;
  Read(a,b);
  Range(Trunc(Sqrt(a)),Trunc(Sqrt(b))).Select(n->n*n).Where(x->x>=a).Println
end.

Тестовое решение
3 150
4 9 16 25 36 49 64 81 100 121 144

Comments

А что такое Range,Println

---

Round округляет вещественное число по правилам арифметики, поэтому в некоторых случаях Вы можете потерять одно или два значения на границах интервала

---

Мы ещё не изучали Where...

---

Вот, началось. Я не могу и не должен объяснять Вам, как программировать в Паскале. Вы сейчас не про алгоритм спрашиваете, а про сам язык.

---

А Вы вообще не указали версию языка. Возможно, вы вообще не будете изучать эти возможности Паскаля - откуда мне знать?

---

PascalABC.NET

---

Это очень "широкая" версия и в ней огромное количество возможностей. Какие-то школы изучают современный стиль программирования с Range и Where, а какие-то все еще учат школьников работать на уровне возможностей языка 1997 года.

---

Все зависит от того, знает ли эти эти новые возможности учитель информатики. Смешно и печально одновременно.

---

Понятно.

---

Программы автоматической проверки заданий с конкурсных и обучающих сайтов, как правило, настроены на прием программ, написанных в стиле языка версии Free Pascal. И об этом обячно там где-то написано. Если Вы хотите свои программы "заталкивать" на такие сайты - просите в задании, чтобы писали на Free Pascal (он же - FPS)