Var
n, i, a, s: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
begin
readln(a);
if a mod 6 = 0 then
s := s + a;
end;
writeln(s);
end.
Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
<span>writeln('План можно выдерживать', i, ' лет' )</span>;
end.
1,11,111,1111,11111,111111....
10,100,1000,10000,100000...
101,111,101,111,101,111,101...
Количество символов в алфавите N=2^i, где i- количество бит на 1 символ.
i=I/k, где I- информационный объем сообщения (бит), k- количество символов в сообщении.
k=3*64*32= 6144
i=(15*1024*8)/ 6144= 20 бит
N=2^20= 1048576 символов
Сверчок!!Сверчок!!<span>Сверчок!!</span>