<span>Программа выводящая одно число: сумму всех чисел , кратных 4 и оканчивающихся на 6.</span>
4 елочки могут принимать значение 2 значение (серебристый и ли зеленый). Как 1 бит - ложи или истина
4 елочки = 4 бита.
2^4 = 16.
Ответ: 16 различных способов
// PascalABC.Net 3.0, сборка 1076
var
s,ss:string;
i,n,p:integer;
begin
Write('Введите строку: '); Readln(s);
n:=Length(s); p:=Pos(',',s);
if p in [1..n-1] then begin
ss:=Copy(s,p+1,n-p);
n:=Length(ss); p:=Pos(',',ss);
if p=0 then Writeln(ss)
else Writeln(Copy(ss,1,p-1))
end
else Writeln('*** Нечего выводить ***')
end.
<u><em>Тестовые решения:</em></u>
Введите строку: 01234,45679,1011213,14151617
45679
Введите строку: 01234,45679101121314151617
45679101121314151617
Введите строку: 01234,
*** Нечего выводить ***
1)16умн90=1440(с)
2)32умн80=2560(с)
3(2560-1440=1120(с)
Ответ:на 1120 байт больше у 2 племени в письме
(Так думаю)