С ЗАДАЧАМИ ПО ИНФОРМАТИКЕ А) К трем одинаково коммерчески важным файлам имели доступ три сотрудника фирмы (каждый сотрудник – только к одному файлу Первый сотрудник скопировал файл и переслал его по электронной почте своему товарищу. Второй сотрудник установил пароль на папку с файлом, в результате чего она стала недоступной сотрудникам, нарушив их совместную работу. Третий сотрудник по неопытности, удалил этот файл, перепутав его с другим, ненужным файлом. Кто из них сделал правонарушение и почему? Б) Программист, участвовавший в разработке автоматизированной линии по сборке автомобилей, предусмотрел в программе «жучок» (макрос), который после удаления фамилии этого программиста из ведомости на зарплату блокировал сборочный конвейер. После ряда нарушений программиста уволили, удалив его реквизиты и ведомости на зарплату, и поэтому «жучок» сработал. В результате этого конвейер три дня, были понесены многомиллионные убытки. Можно ли программиста привлечь к уголовной ответственности? В) Программист взломал защиту компьютерной программы, купленной фирмой, где он работал, а затем, разместив объявление в газете о продаже программы по заниженной цене, стал устанавливать взломанную версию программы на компьютеры ряда фирм. Фирма-изготовитель, созвонившись с ним по телефону, также установила у себя программу, после чего зафиксировала документально эту установку и подала затем иск о возмещении нанесенного вреда. По каким статьям может быть наказан программист?
Ответы
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.
ответ: Программа рабочая, проверена.
Program zadacha;
var
a: array [1..50] of integer; // размерность массива = 50
i,k: integer;
begin
begin
for i:=1 to 50 do
a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве
writeln('Заполненный массив: ');
for i:=1 to 50 do
write(a[i],' '); end; // выводим массив на экран до проверки
writeln; //новая строка
writeln('Введите значение числа K: '); readln(k);
writeln('Элементы массива, кратные K:');
for i:=1 to 50 do
if (a[i] mod k = 0) then write(a[i],' ');
end.
Объяснение:
i - порядковый номер элемента
a - сам массив
k - вводимое число
В остальном оставила комментарии.
Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было вопроса о вводе элементов или вводе размерности.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Измените одну букву чтобы в конце получилось слово век . (первое слово миг)
Расположите величины в порядке возрастания: 572 байт, 4 мбайт, 5кбайт, 120 битов, 754 бита
7класс сор по информатике за 3четверть
Пиши такие вопросы в Право, а то этот вопрос больше юридический, чем по информатике