var
n, k, i, j: integer;
s: array[1..15] of integer;
begin
assign(input, 'task2.in'); reset(input); readln(n, k); close(input);
assign(output, 'task2.out'); rewrite(output);
for i := 1 to n do
if i <= k then s[i] := 1 else s[i] := 0;
for i := 2 to n do
begin
j := i - 1;
while (j > 0) and (j >= i - k) do
begin
s[i] := s[i] + s[j];
j := j - 1
end
end;
write(s[n]);
close(output)
end.
Нужно сделать битовый сдвиг влево на 4 бита
На Си:
A << 4;
было число 5 = 101
<span>будет 5*16 = 1010000 </span>
1) 2^(10*1024*8/8/32/40)
2)
е=20
л=12
о=32
п=11
к=10
а=22
колокол = 10 32 12 32 10 32 12