Если есть заварка, то я пойду пить чай, иначе не пойду.
На до взять удалить его и перезагрузить комп 2 ити к компьюторному мастеру
//прога на Pascal`e {бдок-схема в файле}
var
x: int64;
begin
write ('Введите целое число: ');
readln (x);
if x<=38 then write ('Салют') else write ('y = 5x-38 = ', 5*x-38);
end.
var i,n,p:integer;
a:array[1..10000] of integer;
begin
p:=1;
readln(n); {Вводится количество элементов массива}
for i:=1 to n do begin readln(a[i]); p:=p*a[i]; end; {Вводится каждый элемент массива и умножается на произведение ранее введённых}
writeln(exp(ln(p)/n)); {Вывод среднего арифметического - корень степени n из произведения всех элементов массива}
end.
При использовании 1024-символьного алфавита для хранения одного символа требуется log(2)1024 = 10 бит.
Объем сообщения = 32*10 = 320 бит = 320/8 байт = 40 байт