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>
Нужно определить, сколько времени будет передаваться файл объемом 10 Мбайт по каналу со скоростью передачи данных 215 бит/с; к этому времени нужно добавить задержку файла у Васи (пока он не получит 1024 Кбайт данных по каналу со скоростью 219 бит/с).
Переведём объём информации в Мб в биты: Q = 10 Мб = 10 * 220 байт = 10 * 223 бит.
Время задержки: = 1024 кб / 219 бит/с = 2(10 + 10 + 3) - 19 c = 24 c.
Время скчивания данных Петей: = 10 * 223 бит / 215 бит/с = 10 * 28 c.
Полное время: = 10 * 28 c + 24 c = (256 * 10 + 16) c = 2576 c.
Ответ: 2576.
Можно, например, так (метод деления пополам):
const eps=10E-10;
function func(x:real):real;
begin
func:=ln(x)-1/x;
end;
var a,b,h,x,f1,f2: real;
begin
a:=0; h:=0.1;
a:=a+h;
f2:=func(a);
repeat
f1:=f2;
a:=a+h;
f2:=func(a);
until f1*f2<0;
b:=a; a:=a-h;
writeln('a = ',a,' b = ',b);
x:=(a+b)/2;
while abs(func(x))>eps do
begin
if func(a)*func(x)<0 then b:=x
else a:=x;
x:=(a+b)/2;
end;
writeln('x = ',x);
end.
Результат:
a = 1.7000000000000004E+000 b = 1.8000000000000005E+000
x = 1.7632228344678880E+000
1)Я слышала как проехал автобус, но я не видела какого он цвета,куда едет и как он выглядит .
2) Научное открытие большой адронный коллайдер.