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

PascalABC.NET

Answer 3

Понятно.

Answer 4

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.