Входные данные
Вводятся целые числа 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
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.