В 1989 году, работая в CERN над внутренней сетью организации, Тим Бернерс-Ли предложил глобальный гипертекстовый проект, теперь известный как «Всемирная паутина». Проект подразумевал публикацию гипертекстовых документов, связанных между собой гиперссылками, что облегчило бы поиск и консолидацию информации для учёных CERN. Для осуществления проекта Тимом Бернерсом-Ли (совместно с его помощниками) были изобретены идентификаторы URI, протокол HTTP и язык HTML. Это технологии, без которых уже нельзя себе представить современный Интернет. В период с 1991 по 1993 год Бернерс-Ли усовершенствовал технические спецификации этих стандартов и опубликовал их. Но, всё же, официально годом рождения Всемирной паутины нужно считать 1989 год.
<em>я так понял на паскале так как информатика </em>
Среда Разработки PascalABC.NET
function factorial(n:integer):integer;
var f:integer;
begin
f :=1;
if(n = 0) or (n = 1) then
factorial:=1
else
if(n>1) then
begin
for var i:=2 to n do
f*=i;
factorial:=f;
end;
end;
begin
var (n,k):=ReadInteger2('n,k = ');
Writeln('Ck/n = ',factorial(n)/(factorial(n-k)*factorial(k)));
end.
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger).Where(t->t.IsEven).Max.Println
end.
<u>Пример</u>
6
20 31 -18 0 14 7
20
Ответ:
var
x, y: real;
begin
write('введите значение x=');
readln(x);
y := Power(Exp(2/3 - x), 1/5) / Sqrt(Power(x, 2) + Power(x, 4) + Ln(Abs(x - 3.4)));
writeln(y);
end.
Объяснение:
Делал в PascalABC.NET
Вот значения этой функции в трёх точках:
при x=-50 f(x)=10.0652313494729
при x=0 f(x)=1.0328923618595
при x=1 f(x)=0.551686948045355