1) крик
<span>Первоначально люди использовали лишь средства ближней связи — речь, слух, зрение. О надвигающейся опасности можно было предупредить криком, правда, услышать его могли на расстоянии всего нескольких сот метров. </span>
<span>2) барабан </span>
<span>Звук барабана, особенно популярный среди африканских племен, был способен донести сигнал тревоги уже несколько километров. </span>
<span>3) интернет </span>
<span>В 1969 году в США начала функционировать первая в компьютерная сеть. Она положила начало формированию всемирной компьютерной сети Интернет (Internet), огни миллионов компьютеров, включённых в Интернет, образуют единую информационную среду, открывающую любому человеку доступ ко всему информационному богатству человечества. </span>
<span>4) передатчик </span>
<span>Рассмотрим несколько ситуаций, связанных с передачей информации. </span>
<span>При переходе дороги на регулируемом перекрёстке вы (приёмник информации) воспринимаете зелёный сигнал светофора (источника информации) как разрешение перейти дорогу. </span>
<span>5) радиосвязь </span>
<span>В 1895 году русский изобретатель А. С. Попов открыв радиосвязь, не требующую проводов и кабелей. Вначале радиосвязь мало чем отличалась от телеграфа. </span>
<span>6) морзе </span>
<span>До середины 20-х годов XX века использовался специальный помехоустойчивый код Морзе. Со временем были изобретены различные способы помехозащитной записи звука и появилась звуковая радиосвязь, в человеческий быт вошли радиоприёмники. Сегодня существует очень много мощных радиостанций. Чтобы не испытывать взаимных помех, они работают на разных радиоволнах — длинных, средних, коротких, ультракоротких и дециметровых. Но до сих пор в экстремальных ситуациях, когда существуют сильные природные помехи, используют радиотелеграфный способ передачи информации. </span>
<span>7) приёмник </span>
<span>В передаче информации всегда участвуют две стороны: тот, кто передаёт информацию (источник информации) , и тот, кто её получает (приёмник информации) . </span>
<span>8) телевидение</span>
<em><u>Современное решение:</u></em>
// PascalABC.Net 3.0, сборка 1066
begin
var k:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(k,-25,25);
Writeln('Сгенерированный массив: ',a);
Writeln('Сумма четных элементов равна ',a.Where(x->x mod 2=0).Sum)
end.
<em><u>Тестовый прогон:</u></em>
Количество элементов в массиве: 15
Сгенерированный массив: [6,18,19,20,12,-20,7,19,-17,10,14,-25,10,-11,-13]
Сумма четных элементов равна 70
Файл во вложении направляю на вам в группу для для покупок и в в
В задаче не указан шаг изменения х , допустим он равен 1варX и Y:реальные;начатьх:=1;пока х<=10 делатьначатьy:=1/x-5;writeln(г:8:2);х:=х+1;конца;конец.
Var x,y:real;
begin
write('x = ');
readln(x);
y:=x/3;
writeln('y = ',y);
end.
Пример:
x = 15
y = 5