Program chkr5; const N=10; var a:array [1..N] of integer; chkr,i:integer; flag:boolean; //Создаем массив из 10 (N) элементов begin randomize; flag:=false; //Присваиваем переменной flag отрицательное значение, эта переменная потом нам проверить есть ли в массиве числа кратные 5 for i:=1 to N do begin a[i]:=random (21)-10; write (a[i], ' '); //Заполняем массив числами на диапозоне [-10;10] и выводим его if a[i] mod 5=0 then begin chkr:=chkr+1; flag:=true; end; //Каждый раз проверяем: Если элемент при делении на 5 дает в остатке 0, тогда в переменную записываем плюс единичку (к переменной +1) end; writeln; if flag=true then write ('Чисел, кратных 5: ', chkr) else write ('Чисел, кратных 5 нет'); //Выводим результат, если цикл if выполнялся хоть раз (было хоть одно число, кратное 5), иначе говорим, что таких чисел нет end.
Звук барабана донести сигнал тревоги или иной сигнал на несколько километров. Для передачи сигналов тревоги различные народы использовали дым костра. Для передачи посланий на дальние расстояния использовали гонцов. Часто для передачи информации стала использоваться голубиная почта. В 40-е годы 19 века стал использоваться телеграф. На смену гонцам пришла почтовая служба. В 1895 году русский изобретатель А.С. Попов открыл радиосвязь, сделавшую возможной передачу радиосигналов на расстояние без проводов (на рисунке изображен радиоприемник). В 1876 году в Америке был изобретен телефон, позволивший для общения использовать человеческую речь. В конце 30-х годов XX века был изобретен передачи с волн кодированного изображения; появилось телевидение. Спутниковая связь охватывает сегодня всю планету. В 1969 году в США начала функционировать первая компьютерная сеть, положившая начало формированию компьютерной сети Интернет.
