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

Question

Информатика

Геруся

24 октября, 17:42

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

+5

Ответы (1)

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

Светланыч · 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.