const N=10;
function sq(number: integer): boolean;
var i: integer;
begin
sq:=false;
for i:=1 to round(sqrt(number)) do
if i*i = number then
begin
sq:=true;
break
end
end;
var a: array[1..N] of integer;
i, counter: integer;
begin
counter:=0;
writeln('Введите ', N, ' натуральных чисел:');
for i:=1 to n do
read(a[i]);
writeln;
for i:=1 to N do
if sq(a[i]) then
begin
write(a[i], ' ');
counter:=counter+1;
end;
if counter = 0 then
write('Квадраты целых чисел не найдены')
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.