Я так понимаю, нужно число страниц найти.
9408 / (log2(256) / 8 * 28 * 48) = 7 страниц.
1)32768 бит /8 (чтобы узнать сколько байтов)=4096 байт
2)4096/1024=4 килобайт
Var i,j,k,n: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> i:=1; k:=0;
</span><span> repeat
</span><span> j:=i;
</span><span> repeat
</span><span> k:=k+1;
</span><span> writeln(i,' ',j,' ',n-i-j);
</span><span> j:=j+1;
</span><span> until j>(n-i) div 2;
</span><span> i:=i+1;
</span><span> until i>n div 3;
</span><span> writeln('всего вариантов: ',k);
</span><span>end.
</span>
n = 10
<span>1 1 8
</span><span>1 2 7
</span><span>1 3 6
</span><span>1 4 5
</span><span>2 2 6
</span><span>2 3 5
</span><span>2 4 4
</span><span>3 3 4
</span><span>всего вариантов: 8
</span><span>
</span>
program zadacha1;
var x, y, k, h:Real;
Begin
write('x=');Read(x);
h:=exp(3*ln(x));
k:=exp(5*ln(x));
y:=x-h/3+k/5;
Writeln('y=',y);
end.
Program zadacha2;
var x, y, h:Real;
Begin
write('x=');Read(x);
Write('y=');Read(x);
h:=sqr(1/2)-cos(x)+sin(2*x*y);
writeln('h=',h);
end.
Program zadacha4;
var x, y, h:real;
begin
write('x=');Read(x);
h:=abs(exp(4*ln(x))-exp(5*ln(x)));
y:=x- 10*sin(x)+h;
write ('y=',y);
end.