<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (fact,sqrtx,s):=(1.0,Sqrt(Abs(x)),0.0);
for var i:=1 to n do begin
fact*=i; s+=1/fact+sqrtx
end;
Writeln('S=',5*s)
end.
<u>Пример</u>
n= 20
x= 3.18
S=186.916954143565
<u>№2</u>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (powi,s):=(1.0,0.0);
for var i:=1 to n do begin
powi*=2; s+=(x+Sqr(Sin(i*x)))/powi
end;
Writeln('S=',s)
end.
<u>Пример</u>
n= 13
x= 0.59
S=1.12411258214649
Уууу...
Да это же примеры с двоичным кодом, попробуй расшифровать цифры 1 и 0 в цифры "человеческие"))
Чтобы это сделать надо знать кодировку знаков в двоичном коде
Ответ:
впервые начинается как военная задумка в середине ХХ века в разгар холодной войны. В 1962 году Дж.К.Р. Ликлайдер, сотрудник Управления перспективных исследовательских проектов Министерства обороны США (на английском языке эта аббревиатура формулируется как DARPA) озвучил мысль о так называемой "галактической сети" из взаимосвязанных компьютеров.
В 1967 году Лоуренс Робертс из Массачусетского технологического института опубликовал план создания такой сети, которую назвал "Арпанет" (на английском – ARPANET, производное от DARPA). В соответствии с ним, два компьютера оказались впервые объединены в сеть в 1969 году.
В 1972 году эта технология была впервые представлена широкой публике на Международной конференции по компьютерным коммуникациям. В этом же году было отправлено первое сообщение по электронной почте.
Первый веб-браузер был создан в 1990 году сэром Тимом Бернерс-Ли. Он назывался WorldWideWeb и позже был переименован в Nexus[3]. Но первым распространённым браузером с графическим интерфейсом был NCSA Mosaic.
Объяснение:
Апрель май июнь июль значит май
Const
n1=15;
n2=10;
n3=12;
type
V=array[1..15] of string;
procedure M_in(s:string; var a:V; n:integer);
{ ввод данных в массив }
var i:integer;
begin
Writeln('Вводите по одному ',n,' элементов массива ',s);
for i:=1 to n do Readln(a[i])
end;
procedure M_out(var a:V; n:integer; c:char);
{ выводит элементы, начинающиеся с указанного символа }
var i:integer;
begin
Writeln('*** Слова на букву ',c,' ***');
for i:=1 to n do
if a[i][1]=c then Writeln(a[i]);
Writeln
end;
var
s1,s2,s3:V;
begin
M_in('S1',s1,n1);
M_in('S2',s2,n2);
M_in('S3',s3,n3);
M_out(s1,n1,'В');
M_out(s2,n2,'Ц');
M_out(s3,n3,'А');
end.