// написанное после двух косых черт - это пояснения. из программы удалить program massiv_summa; var A: array[1..100,1..100] of integer; //предполагаю, что 1<=N<=100 иначе надо измнить параметры массива var N, Sum: integer; var i, j: byte; begin writeln ('введите N'); readln (N); //ввод значения N c клавиатуры Sum:=0; // Определяем начальное значение суммы чисел массива, кратных 3 for i:=1 to N do begin // внешний цикл перебирает строки массива for j:=1 to N do begin //внутренний цикл перебирает ячейки в каждой строке A[i,j]:=random(-10,10); //элементу массива присваивается случайное значение if (A[i,j] mod 3)=0 // если остаток от деления числа на 3 равен нулю (кратно 3) then Sum:=Sum+A[i,j]; //если кратно 3, то прибавляем его к сумме //если не кратно 3, то ничего не делаем. т.е. оператор else отсутствует //Для проверки можно вывести весь массив, например: write (A[i,j]:4); end; writeln //для вывода новой строки массива с новой строки end; writeln ('Сумма чисел кратных 3 равна ',Sum); end.
Телефон, запатентованный в США 1876 году, Александром Беллом, назывался «говорящий телеграф» . Трубка Белла служила по очереди и для передачи, и для приёма человеческой речи. В телефоне А. Белла не было звонка, позже он был изобретён коллегой А. Белла — Т. Ватсоном 1878 год. Вызов абонента производился через трубку при свистка. Дальность действия этой линии не превышала 500 метров.
Александр Белл подал заявку в Вашингтонское патентное бюро на свое изобретение 14 февраля 1876 года. Двумя часами позже заявку на «Устройство для передачи и приема вокальных звуков телеграфным подал Э. Грей из Чикаго.
7 марта 1876 года Александром Беллом был получен патент на изобретение телефона. Любопытно, что А. Белл пытался изобрести не телефон, а «гармонический телеграф» . В то время в телеграфии испытывался огромный дефицит линий.
25 июня 1876 года. Александр Белл впервые продемонстрировал свой телефон на первой Всемирной электротехнической выставке в Филадельфии.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку