Описать функцию square(k) логического типа, возвращающую True, если целый параметр k(>0)...

Question

Описать функцию square(k) логического типа, возвращающую True, если целый параметр k(>0) является квадратом некоторого числа, и False в противном случае. Паскаль

Answer 1

Var k: integer;
function square(k: integer): boolean;
begin
     if sqr(trunc(sqrt(k))) = k  {Проверяем, является ли квадрат округлённого квадратного корня самим числом}
     then
         square := true
     else
         square := false;end;
begin
     read(k);
     writeln(square(k));
end.