1/3-1/4=1/12
1/7-1/9=2/63
1/4-1/7=3/28
с 1/4 хз даже как сделать
Если у меня был робот, он бы не был похож ни на один из существующих. Он был бы небольшим, юрким, быстро передвигающимся. Его главной задачей было бы помогать организовывать пространство вокруг меня.
Мой робот не только мог бы меня развлекать. Он точно должен помочь нести тяжёлые сумки, предупредить о препятствиях на дороге, заранее узнавать прогноз погоды и предлагать наиболее подходящую одежду и обувь. Было бы неплохо научить робота готовить: бывает, приходишь домой, а там - пустота, шаром покати. С роботом такого не произошло бы: он заранее заказал бы всё необходимое и приготовил бы еду ещё до моего прихода на кухню.
Но и о развлечениях забывать не стоит. Такой робот легко мог бы стать мультимедийным, составлять и проигрывать плейлисты с тщательно подобранной музыкой, быть переносным кинотеатром, при случае рассказывать истории и анекдоты. Он должен внимательно слушать, быть отличным собеседником. Его можно будет использовать и для игр в виртуальной реальности, причём без необходимости носить специальные приспособления и манипуляторы.
Кроме того, робот должен быть умным. В свободное время он мог бы подключаться к сети и участвовать в системе распределённых вычислений. Такие системы используют, чтобы решать сложные задачи: обработка результатов Большого адронного коллайдера, расшифровка человеческой ДНК и поиск генных причин возникновения опухолей, даже поиск инопланетного разума. Было бы круто, если бы мой помощник помог найти лекарство от рака!
Несмотря на все преимущества, описанные выше, мне не очень нужен такой робот. Многое из перечисленного - моя сегодняшняя жизнь. Конечно, на первый взгляд кажется, что если появится робот, забирающий все рутинные занятия, жизнь станет краше. Однако после выкидывания из жизни таких мелочей оказывается, что жизнь становится пуста и бессмысленна. Я боюсь, что уже через несколько десятков лет роботы и другие машины заменят человека, упростят его культуру. Этого нельзя допустить ни в коем случае.
<em>sp - сумма положительных элементов</em>
<em>so - сумма отрицательных элементов</em>
<em>kp - количество положительных элементов</em>
<em>ko - количество отрицательных элементов</em>
<em>fo - первый отрицательный элемент</em>
<em>lo - последний отрицательный элемент</em>
<em>max,min - номера макс и мин эл массива</em>
<em>a[max],a[min] - макс и мин эл массива</em>
<em>sum - сумма эл массива</em>
<em>proiz - произведение эл массива</em>
<em>m1,m2 - два макс эл</em>
<em>maxo - макс среди отрицательных</em>
<em>s1 - сумма эл не превышающих maxo</em>
<em>minp - мин среди положительных</em>
<em>s2 - сумма эл,превышающих minp
</em>s3 - сумма эл от a до b
cn - количество эл от a до b
-----------------------------------------------------------------------------------------------------
const n = 10;
var a:array [1..n] of integer;
i,sp,so,kp,ko,max,min,fo,lo,m1,m2,maxo,s1,minp,s2,aa,bb,s3,cn:integer;
sum,proiz:longint;
f:boolean;
begin
randomize;
so:=0;
sp:=0;
kp:=0;
ko:=0;
f:=false;
for i:=1 to n do
begin
a[i]:=random(21)-10;
if (not f) and (a[i]>1) then f:=true;
write (a[i]:3);
if a[i]>0 then
begin
sp:=sp+a[i];
inc(kp);
end else if a[i]<0 then
begin
so:=so+a[i];
inc(ko);
end;
end;
writeln;
max:=1;
min:=1;
for i:=2 to n do
if a[i]>a[max] then max:=i else
if a[i]<a[min] then min:=i;
for i:=1 to n do
if a[i]<0 then
begin
fo:=i;
break;
end;
for i:=n downto 1 do
if a[i]<0 then
begin
lo:=i;
break;
end;
proiz:=1;
if f then
sum:=so+sp
else for i:=1 to n do proiz:=proiz*a[i];
m1:=-100;
m2:=-100;
for i:=1 to n do
if a[i]>m1 then
begin
m2:=m1;
m1:=a[i];
end else if (a[i]>m2) and (a[i]<>m1) then m2:=a[i];
maxo:=-100;
for i:=1 to n do
if (a[i]<0) and (a[i]>maxo) then maxo:=a[i];
s1:=0;
for i:=1 to n do
if a[i]<maxo then s1:=s1+a[i];
minp:=100;
for i:=1 to n do
if (a[i]>0) and (a[i]<minp) then minp:=a[i];
s2:=0;
for i:=1 to n do
if a[i]>minp then s2:=s2+a[i];
write ('A = ');
readln (aa);
write ('B = ');
readln (bb);
s3:=0;
cn:=0;
for i:=aa to bb do
begin
inc(s3,a[i]);
inc(cn);
end;
end.
1)const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;
n,i:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do write(a[i],' ');writeln;
<span>end.
А вторую и третью я объединила:
</span>const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;i,min:integer;
begin
randomize;
for i:=1 to 5 do a[i]:=random(101)+0;
for i:=1 to 5 do write(a[i],' ');writeln;
min:=a[1];
for i:=2 to 5 do if a[i]<min then min:=a[i];
writeln(min);
end.
Я думаю что они объединяют сеть из за того чтобы много узнали из интернета, разговаривать, читать, смотреть фильмы и др.
