===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
Имеется в виду информационный объем сообщения и алфавитный подход к измерению количества информации:
182 > 128 = 2⁷ и 182 < 256=2⁸
Значит для хранения 1 символа текста с алфавитом мощностью 182 символа требуется 8 бит или 1 байт. Соответственно сообщение длиной в 10 символов будет иметь информационный объем = 10 байт.
Ответ: 10 Байт
<span>Б) Assembler ..............</span>
V=4/3*pi*r^3;
pi=acos(-1) вроде
а вообще
var
переменные
begin
assign....
assign...
read(r);
writeln(pi*4/3*r*r*r);
end.
а фото тебе просто формулу нужно в паскаль загнать
только что такое In я не знаю, я 7 класс)))