Входные данные
Вводятся целые числа a и b. Гарантируется, что a не превосходит b.
Выходные данные
Выведите все числа на отрезке от a до b, являющиеся полными квадратами. Если таких чисел нет, то ничего выводить не нужно.
Примеры
входные данные
1
1
выходные данные
1
входные данные
2
8
выходные данные
4
Заранее спасибо.
Вводятся целые числа a и b. Гарантируется, что a не превосходит b.
Выходные данные
Выведите все числа на отрезке от a до b, являющиеся полными квадратами. Если таких чисел нет, то ничего выводить не нужно.
Примеры
входные данные
1
1
выходные данные
1
входные данные
2
8
выходные данные
4
Заранее спасибо.
Answers & Comments
Verified answer
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.