Переводим 260 в двоичную систему счисления и видим:
В последнем действии 0 считается как чётное??? Если да, то вот:
35735375537733
Если нет, то вот:
05705375537703
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));
<span>end.</span>
Систематизация и поиск информации в хранилище связаны для облегчения поиска внутри каждой ветви, то есть нужную нам информацию попросту отсортировывают (упорядочивают).
Пример: ты ищешь информацию о смартфоне "Samsung Galaxy" и ты найдешь около миллиона предложений. Соответственно искать нужную тебе модель ты будешь намного дольше, если ты добавишь к "Samsung Galaxy" модель "S5", то кол-во информации значительно уменьшится, потому что ты ищешь то, что ты конкретно знаешь.
Говоря короче, зная область, модель, номер, фирму и т.д. ты сужаешь область поиска информации.