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

Question

Информатика

Гала

20 июля, 14:08

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

+5

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