Сор по информатике 7 класс 4четверть ​

1) 8
2) 7 выведет 1
3)
11 строка, поменять на k := k + 1;
14 строка заменить на if n = 1 then

Рабочий код

var
    n, k: integer;

begin
    read(n);
    k := 0;
    while n mod 7 = 0 do
    begin
        k := k + 1;
        n := n div 7;
    end;
    if n = 1 then
        writeln(k)
    else
        writeln('He существует')
end.

Правильное решение данной задачи
const
    divider = 7;

var
    n: integer;
    k: real;

begin
    read(n);
    k := ln(n) / ln(divider);
    if round(k) = k then
        writeln(round(k))
    else
        writeln('He существует');
end.

Локальная сеть – это группа связанных между собой компьютеров, серверов, принтеров, расположенных в пределах здания, офиса или комнаты. Локальная сеть дает возможность получать совместный доступ к общим папкам, файлам, оборудованию, различным программам и т. д.

Использование ресурсов локальной сети дает возможность существенно снизить финансовые затраты предприятия, повысить уровень безопасности хранения важных данных, сократить временные затраты сотрудников компании на решение различного вида задач, а так же повышение общей эффективности работы.

Локальная сеть состоит из следующего оборудования и технологий:

- концентраторы (HUB)
- управляемый коммутатор 
- принт-сервер 
- файл-сервер 
- устройство беспроводного доступа  
- сервер авторизации и доступа  Сервер выполняет следующие задачи: хранение используемых данных, распределение доступа к ресурсам, обеспечение работы выхода в сеть Интернет, защита сети от внешних вторжений.

Локальная сеть малого офиса (до 15 рабочих мест) предполагает создание одной рабочей группы пользователей с подключением к сети Интернет.