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

Question

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

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

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

Comments

Вы не видите, что этот же вопрос уже был задан час назад? Редкая невнимательность...

---

Ой извините, я просто спешу кое куда и я не обратила внимание.

---

Можно было сначала в это "кое-куда" сбегать, а потом писать вопрос))))

---

Мне-то все равно, это Вы тратите впустую баллы

---

Да ладно, всего лишь баллы.

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.

Comments

trunc(sqrt(i))*(trunc(sqrt(i)) - непарные скобки

---

if trunc(sqrt(i)) * trunc(sqrt(i)) =i then writeln(i)