Var s,k: real;
i:integer;
Begin
Write('Введите стоимость 1 кг конфет: ');
Readln(s);
for i:=1 to 10 do begin
k+=1;
Writeln('Стоимость ', k*0.1, ' кг конфет = ', k*0.1*s);
end;
end.
2 в двоичной записи единица и ноль
2^N это единица и N нулей.
(2^N - 1) это N единиц
((2^N - 1) - 2) = (2^N - 3) это N-2 единицы, ноль и единица (N>=2 иначе всё плохо)
8 - единица и 3 нуля
8^N - единица и 3*N нулей
Последний шаг делайте сами.
<span>Ответ: 1+ (1024 - 1) = 1024</span>