Question

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

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

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

Answer 1

Program kvadrat;
uses crt;
var i,a,b: longint;
begin
write('a='); readln(a);
write('b='); readln(b);
for i:=a to b do
  if trunc(sqrt(i))*trunc(sqrt(i)) = i  then writeln(i);
end.