С ЗАДАЧАМИ ПО ИНФОРМАТИКЕ А) К трем одинаково коммерчески важным файлам имели доступ три сотрудника фирмы (каждый сотрудник – только к одному файлу). Первый сотрудник скопировал файл и переслал его по электронной почте своему товарищу. Второй сотрудник установил пароль на папку с файлом, в результате чего она стала недоступной сотрудникам, нарушив их совместную работу. Третий сотрудник по неопытности, удалил этот файл, перепутав его с другим, ненужным файлом. Кто из них сделал правонарушение и почему?
Б) Программист, участвовавший в разработке автоматизированной линии по сборке автомобилей, предусмотрел в программе «жучок» (макрос), который после удаления фамилии этого программиста из ведомости на зарплату блокировал сборочный конвейер. После ряда нарушений программиста уволили, удалив его реквизиты и ведомости на зарплату, и поэтому «жучок» сработал. В результате этого конвейер три дня, были понесены многомиллионные убытки. Можно ли программиста привлечь к уголовной ответственности?
В) Программист взломал защиту компьютерной программы, купленной фирмой, где он работал, а затем, разместив объявление в газете о продаже программы по заниженной цене, стал устанавливать взломанную версию программы на компьютеры ряда фирм. Фирма-изготовитель, созвонившись с ним по телефону, также установила у себя программу, после чего зафиксировала документально эту установку и подала затем иск о возмещении нанесенного вреда. По каким статьям может быть наказан программист?

👇

Увидеть ответ

Ответ:

ИэнШоу

08.04.2021

Пиши такие вопросы в Право, а то этот вопрос больше юридический, чем по информатике

4,5(62 оценок)

Открыть все ответы

Ответ:

kilaur

08.04.2021

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.

4,4(93 оценок)

Ответ: