N=2^I N=65536 следовательно I=16
V=1280*1024*16=20971520 бит=2621440 байт=2560кБайт=2,5 Мбайт
===== PascalABC.NET =====
begin
var (n, k) := ReadInteger2('Введите N и k:');
var s := 0;
n := Abs(n); // в условии не сказано, что число всегда подожительное!
while n > 0 do
begin
var d := n mod 10;
if d > k then
s += d;
n := n div 10
end;
Print(s)
end.
Есть такжен более короткое решение:
begin
var (n, k) := ReadInteger2('Введите N и k:');
var a := Abs(n).ToString.ToCharArray.Select(c -> c.ToDigit).ToArray;
a.Where(p -> p > k).Sum.Println
end.
Сообщение племени Мульти занимает 4 * 120 = 460 бит (потому что 16 =
)
Сообщение племени Пульти занимает 5 * 96 = 480 бит (потому что 32 =
)
Ответ: сообщение племени Пульти больше сообщения от племени Мульти на 20 бит.
Где отобразилась , может отобразилась в истории браузера в котором ты работал .