Дан линейный массив А[1 ... N], содержащий целые числа. Получить те элементы массива, которые являются полными квадратами.

Question

Информатика

Деша

3 октября, 14:56

Дан линейный массив А[1 ... N], содержащий целые числа. Получить те элементы массива, которые являются полными квадратами.

+4

Ответы (1)

Знаете ответ на вопрос?

Порфирий · Answer 1

var

a:[1 ... 100] array of integer;

i, n, p:integer;

begin

readln (n) ;

for i:=1 to n do

begin

readln (a[i]) ;

p:=2;

while (p*p<=a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p:=p+1;

end;

end;

end.