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

aresu aresu    2   02.03.2019 01:50    3

Ответы
nikysha04 nikysha04  23.05.2020 19:31

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика