Question

Входные данные Вводятся целые числа a и b. Гарантируется, что a не превосходит b. Выходные данные Выведите все числа на отрезке от a до b, являющиеся полными квадратами. Если таких чисел нет, то ничего выводить не нужно. Примеры входные данные 1 1 выходные данные 1 входные данные 2 8 выходные данные 4 Заранее спасибо.

Answer 1

// 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

Answer 2

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.