program zz1;
var a, b, n, i:integer; // задаем переменные целого типа
begin
for i:=10 to 99 do // организуем цикл, в котором переберем все двузначные числа
begin
a:=i div 10; // получаем первую цифру числа
b:=i mod 10; // получаем вторую цифру числа
if (a + b) mod 7 = 0 then n:=n + i; // проверяем, если сумма цифр очередного двузначного числа делится на семь без остатка, то добавляем его в сумму
end;
write(' сумма двузначных положительных чисел, сумма цифр которых кратна 7 = ', n); // выводим ответ
end.
Поделитесь своими знаниями, ответьте на вопрос:
Решить в вычислить таблицу значений функции z=(x^(s_1 )+x^(s_2 ))/(k_1-k_2 ), где s_1, k_1 - сумма и количество положительных элементов матрицы t(6, 6), расположенных ниже главной диагонали; s_2, k_2 сумма и количество положительных элементов матрицы t(6, 6), расположенных ниже главной диагонали; х изменяется от x_n до x_k с шагом h. знакопеременные массивы сформировать случайным образом.
Для записи кода используется 14 букв разного регистра, всего их получается 28.
2 ** 1 = 2
2 ** 2 = 4
2 ** 3 = 8
2 ** 4 = 16
2 ** 5 = 32
Для записи символа нам хватит пяти бит.
Если личный код состоит из 20 букв, для его записи нам потребуется 20 * 5 байт= 100 бит.
Байт = 8 бит. Чтобы записать код необходимо 100 / 8 = 12.5 байт
По условию, он записывается на минимальном целом кол-ве байт. округляем необходимое для записи место в большую сторону и получим 13 байт.
13 байт занимает личный код сотрудника
Код подразделения - целое четырёхзначное число. Чтобы записать число от 1000 до 1999 как двоичное, нужно чтобы кодировка вмещала 1000 значений. (не написано что каждая цифра кодируется отдельно)
2 ** 10 = 1024
Для записи числа необходимо 10 бит. 10 бит это 1.25 байт, а значит для записи потребуется 2 байта.
2 байта занимает личный код сотрудника
30 байт - (13 байта на личный код + 2 байта на код подразделения) =
15 байт.
15 байт выделено для хранения дополнительных сведений об одном сотруднике.