Const n=3; type lec=record name:string; cost:integer; end; var a:array [1..n] of lec; max1:integer; m,k,p,i:byte; begin for i:=1 to n do with a[i] do begin writeln ('Введи наименование товара'); readln (name); writeln ('введи стоимость товара'); readln (cost); end; max1:=-1; for i:=1 to n do if a[i].cost>max1 then begin max1:=a[i].cost; p:=i; end; while k<>1 do begin for i:=1 to n do if (i<>p) and (a[i].cost=max1) then begin m:=i; k:=1; end; max1:=max1-1; end; writeln (a[p].name,' ',a[p].cost); write (a[m].name,' ',a[m].cost); readln; end.
С 1873 года профессор физиологии органов речи Бостонского университета Александр Белл работал над изобретением гармонического телеграфа. Над телефоном он работал в 1875 году. И только через год, в 1876 году, Александр Белл изобрёл телефон, хотя он называл его "говорящим телеграфом". А немецкий физик и изобретатель Иоганн Филипп Рейс продемонстрировал другое устройство, которое также могло передавать музыкальные тона и человеческую речь по проводам. Аппарат имел микрофон оригинальной конструкции, источник питания и динамик. Сам Рейс назвал сконструированное им устройство Telephon. + Александр Белл подал заявку в Вашингтонское патентное бюро на свое изобретение 14 февраля в 1876 году. В этот же день изобретатель Элиша Грей из Чикаго подал предварительную заявку на «Устройство для передачи и приема вокальных звуков телеграфным Вскоре Грей отказался от своей предварительной заявки. По этому случаю были многочисленные споры о том, кто первый изобрёл телефон.
Ну как-то так всё и было. Но всё же первым телефоны изобрёл Саша Бэлл
type lec=record
name:string;
cost:integer;
end;
var a:array [1..n] of lec;
max1:integer;
m,k,p,i:byte;
begin
for i:=1 to n do
with a[i] do begin
writeln ('Введи наименование товара');
readln (name);
writeln ('введи стоимость товара');
readln (cost);
end;
max1:=-1;
for i:=1 to n do
if a[i].cost>max1 then begin max1:=a[i].cost;
p:=i;
end;
while k<>1 do begin
for i:=1 to n do
if (i<>p) and (a[i].cost=max1) then begin m:=i;
k:=1;
end;
max1:=max1-1;
end;
writeln (a[p].name,' ',a[p].cost);
write (a[m].name,' ',a[m].cost);
readln;
end.
Над телефоном он работал в 1875 году. И только через год, в 1876 году, Александр Белл изобрёл телефон, хотя он называл его "говорящим телеграфом".
А немецкий физик и изобретатель Иоганн Филипп Рейс продемонстрировал другое устройство, которое также могло передавать музыкальные тона и человеческую речь по проводам. Аппарат имел микрофон оригинальной конструкции, источник питания и динамик. Сам Рейс назвал сконструированное им устройство Telephon.
+ Александр Белл подал заявку в Вашингтонское патентное бюро на свое изобретение 14 февраля в 1876 году. В этот же день изобретатель Элиша Грей из Чикаго подал предварительную заявку на «Устройство для передачи и приема вокальных звуков телеграфным Вскоре Грей отказался от своей предварительной заявки. По этому случаю были многочисленные споры о том, кто первый изобрёл телефон.
Ну как-то так всё и было. Но всё же первым телефоны изобрёл Саша Бэлл