Изобретение телефона является результатом труда многих людей и его авторство нельзя приписать одному конкретному лицу (как и в случае с, например, фотографией или кинематографом) .Первый прототип современного телефона запатентовано в 1876 году американским изобретателем Александром Беллом. Трубка Белла служила по очереди и для передачи и для приема звука. Она не имела вызова вызов абонента происходил через трубку при помощи свистка. Дальность действия такого прибора не превышала 500 метров. На первенство в изобретении телефона, кроме Белла, претендовало около трех десятков ученых, среди которых были МакДоноут, Эдисон, Грей, Долбира, Блейк, Ирвин и Фелькер. Это привело к возникновению ряда судебных процессов в США, которые лишь подтвердили коллективность изобретения, признав различными изобретателями первенство по отдельным пунктам.B 1877 году изобретатель Ваден использовал для вызова абоненту телеграфный ключ, который замыкал круг звонка. В том же году немецкая компания «Сименс и Гальске» начала изготавливать телефонные аппараты с двумя телефонными трубками - одна для приема, другая - для передачи мови.Томас Эдисон изобрел угольный микрофон, который почти без изменений проработал до 1980 года.<span>История дальнейшего развития телефона включает изобретение электрического микрофона, который пришел на замену угольному, громкоговорящая связь, тоновый набор, цифровое сжатие звука, новые телекоммуникационные технологии (IP телефонию, ISDN, DSL, сотовая связь, DECT) .Найперши телефоны были механическими приборами, которые базировались на передаче звука, используя воздух или другие физические средства, в отличие от электрических приборов, которые базируются на электромагнитных сигналах.Згидно письму в Peking Gazette, в 968, китайский изобретатель Кунг-Фу-Винг изобрел thumtsein, предположительно передавал язык через трубы. Разговоры через трубы используются и сьогодни.Мотузковий телефон был также известен веками, связывая две диафрагмы с веревкой или проволокой, которые передают звук с одного конца до другого вибрациями веревки, а не через электрический ток.</span>
program raf105;
var
km,fut: real;
begin
write('Введите расстояние в километрах: ');
readln(km);
write('Введите расстояние в футах: ');
readln(fut);
write('Большее: ');
if km > fut * 0.00045 then writeln(km,' км.')
else writeln(fut,' фут.');
end.
<h3>PascalABC</h3>
Находим объем 1 страницы в битах
(1,5*1020*1024*8)/4=<span>
<span>3525120 бит
</span></span><span>
3525120/(800*600)=</span><span>
<span>7,344 глубина цвета</span></span>≈8 бит<span><span>
</span></span>2^8=256 цветов
Считаем, что сначала вводится количество студентов, потом список студентов (по одному в строчке), потом фамилия нужного студента
var
ss: string;
s: array [1..100] of string;
n, i, j: integer;
begin
readln(n);
for i := 1 to n do
readln(s[i]);
for i := 1 to n -1 do
for j := 1 to n - 1 do
if s[j] > s[j + 1] then
begin
ss := s[j];
s[j] := s[j + 1];
s[j + 1] := ss;
end;
readln(ss);
j := 0;
for i := 1 to n do
if s[i] = ss then
j := i;
if j = 0 then
writeln('NO')
else
writeln('YES ', j);
end.
