N деленное на 3 в степени n-1 и все в квадрате
65536 = 2^16
x * 2^16 - x * 2 = 170 * 8
x * (2^16 - 2)= 1360
нам надо найти исходный размер, значит
2^16 x = 2^16*1360/(2^16-2) ~ 1360.04 бит ~ 170.005 байт
Ответ: <span>170.005 байт</span>
можно. читай, если интересно. я пересказать своими словами полно и ясно не смогу.
http://computer76.ru/2014/02/03/p608/
Var money, cost,summa : real;
count : integer;
tovar: string;
begin writeln('Введите исходные данные: ');
writeln('Какой товар вы покупаете? ');
readln(tovar);
writeln('По какой цене? ');
readln(cost);
writeln('Сколько штук? ');
readln(count);
summa := cost*count; writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2); writeln('Сколько денег даете? ');
readln(money);
if money=summa then writeln('свободен, под расчёт') else if money > summa then writeln('Ваша сдача: ', money-summa) else writeln('Нужно добавить: ', summa-money,. ');
<span>end.</span>
Все считаю в одной программе, если что, можно у1 и у2 в
разные разнести
<span><span>
Var
x:integer;
y1,y2:real;
begin
writeln('</span>Введите х<span>');
readln(x);
y1:=(3*exp(4*ln(x))+1)/exp(3*ln(x));
y2:=sqrt(8+x)-sqrt(8-x);</span></span>
writeln(‘y1=’,y1);
writeln(‘y2=’,y2);
end.