Var
y, s, d: real;
i, n, j: integer;
function factorial(N: integer): longint;
begin
<span>if N = 0 then factorial := 1 </span>
Else factorial := factorial(N - 1) * N
end;
begin
readln(n);
s := 1;
<span>for i := 2 to n do </span>
begin
d := 1;
for j := 2 to i do
d := d + (1 / j);
<span>s := s + (factorial(i) / d); </span>
end;
write(s);
<span>end.</span>
Дано:
t1 = 3 сек
t2 = 2 сек
t3 = 3 сек
S = 205 страниц
Найти:
Т - ?
Решение:
1) 3 + 2 + 3 = 8 сек нужно для обработки одной страницы текста
2) 205 × 8 = 1640 сек нужно для обработки всего текста
Переведем секунды в минуты:
1640 / 60 = 27,33 мин нужно для ввода в память компьютера 205 страниц текста
Ответ: 1640 сек или 27,33 мин нужно для ввода в память компьютера 205 страниц текста романа А.Дюма "Три мушкетера"
К примеру. <span>ŀx+1l
</span>Модулем действительного число называется расстояние от начала отсчёта до точки, соответствующей данному числу. Например, I4I=4, I-5I=5, I0I=0.
Есть ещё такое определение. Оно используется при решении уравнений и неравенств.
IХI=Х, если Х>=0 (модуль неотрицательного числа равен самому себе)
IХI=-Х, если Х<0 (модуль отрицательного числа равен числу, ему противоположному) .
В Вашем примере:
Iх+1I=х+1, если х+1>=0, то есть х>=-1
<span>Iх+1I=-х-1, если х+1<0, то есть х<-1</span><span>
</span>
При а=3 результат а=30
при а=7, результат а=27