Pascal

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

Примеры:

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

1

5

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

1 4

Question

Информатика

Мартин

1 сентября, 11:53

Pascal

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

Примеры:

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

1

5

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

1 4

+1

Ответы (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