Всемирная компьютерная сеть (или Интернет) — это объединение локальных, региональных и национальных компьютерных сетей в одно информационное пространство, которое не имеет никаких территориальных и национальных границ. В современном мире интернет представляет собой глобальное средство коммуникаций, которое эффективно обеспечивает обмен различной информацией: Текстовые файлы; Изображения и графика; Аудиофайлы; Видеоинформация; Онлайновые службы по всей планете. На сегодняшний день количество пользователей сети интернет уже давно превысило отметку в 1 миллиард человек. По оценке Всероссийского центра изучения общественного мнения (ВЦИОМ) сегодня в России количество пользователей интернетом перевалило за 70% всего населения, что является достаточно высоким показателем, учитывая процентное соотношение представителей разных возрастов. Информация взята с сайта биржи Автор24: https://spravochnick.ru/informacionnye_tehnologii/organizaciya_kompyuternyh_setey/vsemirnaya_kompyuternaya_set/ .
Взято со страницы: https://spravochnick.ru/informacionnye_tehnologii/organizaciya_kompyuternyh_setey/vsemirnaya_kompyuternaya_set/
i,n: integer;
procedure IN1(var a,b:real;n:integer;var y:real);
var
p:real;
i:integer;
begin
y:=1;
for i:=1 to n do
begin
p:=exp(b*ln(a));
y:=p*y;
end;
end;
procedure IN2(var a, b:real; n:integer; var y1:real);
var
p:real;
i:integer;
begin
y1:=0;
for i:=1 to n do
begin
p:=exp(b*ln(a));
y1:=y1+p;
end;
end;
begin
write(' Введите a, b,n');
readln(a,b,n);
IN1(a,b,n,y2);
writeln('p1 ',y2:10:2);
writeln(' Введите c, b,m');
read(a,b,n);
IN2(a,b,n,y3);
writeln('s ',y3:10:2);
write(' Введите e, f,L');
readln(a,b,n);
IN1(a,b,n,y5);
writeln('p2 ',y5:10:2);
y6:=(y2+y3)/y5;
writeln(y6:8:3); end.
