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.
0 и 0 = 0
0 или 0 = 0
это 1 скобка
1 или 1 = 1
это 2ая скобка
0 и 1 = 0
итог
1) найти убыль как к-во * 12%
2) найти прирост как к-во * 20%
3) к-во = к-во-убыль+прирост
выполнить 8 раз
var
x,a,b:real;
i:integer;
begin
x:=100000;
for i:=1 to 8 do
begin
a:=x*0.12;
b:=x*0.20;
x:=x+b-a;
end;
writeln(x);
end.
Берем инженерный калькулятор.
Набираем максимальное двоичное число длиной 5 знаков (все единицы) .
Переводим это число в десятичку. Получается число 31.
Т. к. ноль, это то же число, то можно уверенно сказать, что пятью двоичными разрядами можно
закодировать 32 символа (0-31)
Код в прикрепленном файле, пример программы тоже (+2 скриншота листинга)
Массив заполняется рэндомными числами размерность массива задается в начале метода Main
В примере она
int n = 10;
int m = 10; их можно заменять на свои