костя леша боря тимофей саша ефим
... - уже данный код в условии
s := 0;
min := 10;
for res := 1 to 4 do
begin
digit := n mod 10;
if (digit mod 2 = 1) then
begin
s += digit;
if (digit < min) then
min := digit;
end;
n := n div 10;
end;
writeln(s * min);
end.
BEGIN
INT I, SUM;
/* ЧИСЛО МОНЕТОК */
SUM := 0;
FOR (I := 0; I <= 10000; I++)
BEGIN
SUM := SUM + I;
END;
/* РЕЗУЛЬТАТ */
PRINTLN ('ЧИСЛО МОНЕТОК: ' + STR(SUM));
END
Для первого сообщения 1 символ=4 бита. (2 в 4 степени=16) и умножаем 4 * 40 = 160 бит.
для второго сообщения 1 символ=6 бит. (2 в 6 степени = 64) и умножаем
6 * 15 = 90 бит.