Const eps=0.001;
var n,st,f:integer; a,s:real;
begin
n:=1; a:=2;
st:=2; f:=1; s:=2;
while a>eps do
begin
st:=st*2;
f:=f*n;
a:=st/f;
s:=s+a;
n:=n+1;
end;
writeln('s = ',s:6:3);
end.
Результат:
<span>s = 14.778</span>
INPUT "c=", c
PRINT 8 - 2 * SQR(c ^ 2 + 3), (LOG(c) / LOG(10)) ^ 2
<u><em>Тестовое решение:</em></u>
Y:\qbasic\QBASIC.EXE
c=25
-42.11986 1.954236
Чтобы продолжить, нажмите любую клавишу
<meta charset="UTF-8">
<table id="table1" title="Нажмите для расчета" border="1" cellspacing="0" cellpadding="3">
<tbody>
<tr style="background-color: #808080; color: #ffffff;">
<td><strong>Тип связи<br />
</strong></td>
<td align="center"><strong>Скорость, <br>Мгбит/с<br />
</strong></td>
<td align="center"><strong>Помехоустойчивость</strong></td>
</tr>
<tr>
<td><strong>Электрические кабели:
<li>Витая пара</li>
<li>Коаксилный кабель</li>
<br />
</strong></td>
<td align="left"><strong>10 - 100
<br>до 10
</strong></td>
<td align="left"><strong>Низкая
<br>Высокая
</strong></td>
</tr>
<tr>
<td><strong>Телефонная линия
</strong></td>
<td align="left"><strong>10 - 20
</strong></td>
<td align="left"><strong>Низкая</strong></td>
</tr>
<tr>
<td><strong>Оптоволоконный кабель
</strong></td>
<td align="left"><strong>10 - 200
</strong></td>
<td align="left"><strong>Абсолютная</strong></td>
</tr>
</tbody>
</table>
Проводите две прямые.Одну прямую под цифрами 11 и 2,вторую прямую под цифрами 9 и 4.Получается что циферблат разделён на три части и в каждой части сумма равна 26.1)11+12+1+2=26 2)9+10+3+4=26 3)8+7+6+5=26