Впоследовательности чисел,вводимой с клавиатуры, подсчитать суммы элементов, стоящих до и после отрицательного элемента хранить элементы последовательности в памяти нет необходимости. (без массива) c++
Звук барабана донести сигнал тревоги или иной сигнал на несколько километров. Для передачи сигналов тревоги различные народы использовали дым костра. Для передачи посланий на дальние расстояния использовали гонцов. Часто для передачи информации стала использоваться голубиная почта. В 40-е годы 19 века стал использоваться телеграф. На смену гонцам пришла почтовая служба. В 1895 году русский изобретатель А.С. Попов открыл радиосвязь, сделавшую возможной передачу радиосигналов на расстояние без проводов (на рисунке изображен радиоприемник). В 1876 году в Америке был изобретен телефон, позволивший для общения использовать человеческую речь. В конце 30-х годов XX века был изобретен передачи с волн кодированного изображения; появилось телевидение. Спутниковая связь охватывает сегодня всю планету. В 1969 году в США начала функционировать первая компьютерная сеть, положившая начало формированию компьютерной сети Интернет.
var i: word; //Было предпочтительнее использовать byte, //ведь от 3 до 7 считаем, но тип word старее, //а к byte могут придраться
begin SetBrushColor(clBlue); //Проставляем цвет кисти, я не //нашёл функции рисования круга, //где можно было бы указать цвет for i := 3 to 7 do begin FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70 sleep(500); //Поскольку круги в конечном счёте всё равно //затираются более большими, будем выводить //с задержкой end; end.
GraphABC;
var
i: word; //Было предпочтительнее использовать byte,
//ведь от 3 до 7 считаем, но тип word старее,
//а к byte могут придраться
begin
SetBrushColor(clBlue); //Проставляем цвет кисти, я не
//нашёл функции рисования круга,
//где можно было бы указать цвет
for i := 3 to 7 do
begin
FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
sleep(500); //Поскольку круги в конечном счёте всё равно
//затираются более большими, будем выводить
//с задержкой
end;
end.