Pascal

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

Примеры:

Входные данные

1

5

Выходные данные

1 4

Question

Информатика

Наюся

28 марта, 14:02

Pascal

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

Примеры:

Входные данные

1

5

Выходные данные

1 4

+5

Ответы (1)

Знаешь ответ?

Ленин · Answer 1

Var a, b, i:integer;

x:real;

Begin

Readln (a);

Readln (b);

If a<0 Then a:=1;

For i:=a to b do

Begin

x:=sqrt (i);

If frac (x) = 0 Then Write (i,' ');

End;

End.

PascalВыведите все числа на отрезке от a до b, являющиеся полными квадратами.Примеры:Входные данные15Выходные данные1 4

Pascal

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

Примеры:

Входные данные

1

5

Выходные данные

1 4