N = 2 в степени i //N=2^i
I = k * i
Маленькая буква i или b это одно и тоже
128 = 2^i
i= 7
I = i* k
k= 40
I = 40 * 7
I = 280бит
1 бит = 8байт
280/8= 35 байт
Ответ : 8байт или 280бит
1) закодируйте "привет" шифром цезаря сдвигом на 1
2) закодируйте "привет" шифром цезаря с помощью случайного перемешивания букв
3) закодируйте "привет" произвольным блочным шифром
4) закодируйте "привет", затем раскодируйте с помощью шифрования RSA. Ключи сгенерировать ориентируясь на простые числа 14017456892648694625195855726035360572578806956623 и 84141330916983134600891404227101935207023706467497 ,простоту предварительно проверить произвольным методом(я проверял тестами Ферма, все прошло)
Задача №1
var i, sum, x: integer;
begin
sum := 0; //начальная сумма
for i := 1 to 10 do //счётчик до 10
begin
write('Введите число ', i ,': ');
readln(x);
sum:= sum + sqr(x); //к сумме прибавляем квадрат введенного числа
end;
writeln('Сумма квадратов чисел = ',sum);
end.
Задача №2.
var i, sum: integer;
begin
sum := 0; //начальная сумма
for i := 26 to 88 do //счётчик от 26 до 88
begin
if i mod 2 = 0 then //проверка на чётность, если остаток от деления равен 0, то число чётное
sum:= sum + i; //к сумме прибавляем число
end;
write(sum);
end.
<u>Бывают же задачки, которые так приятно решить в виде одной конструкции языка! )))</u>
<em>// PascalABC.NET 3.2, сборка 1456 от 26.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqInteger(ReadInteger).Select(x->x.ToString).JoinIntoString('')
.GroupBy(x->x).Select(x->(x.Key,x.Count))
.OrderBy(x->x[1]).ThenByDescending(x->x[0]).Select(x->x[0]).Println(' ')
end.
<u>Пример</u>
3
456
20
3452
6 3 0 5 4 2
<em>можно также ввести все в одной строке</em>
3 456 20 3452
6 3 0 5 4 2