Какая из последовательностей отражает истинную хронологию: а)почта, телеграф, телефон, телевидение, радио, компьютерные сети б)почта, радио, телеграф, телефон, телевидение, компьютерные сети в)почта, телевидение, радио, телеграф, телефон, компьютерные сети г)почта, телефон, телеграф, телевидение, радио, компьютерные сети

👇

Ответ:

гриша882

07.06.2023

Сначала появилась почта - в разных странах она возникала в разное время, но возникла вскоре после изобретения письменности. Затем был изобретен телеграф, сначала - оптический телеграф Шаппа, затем электрический телеграф Морзе, передающий сигналы специальной кодовой азбукой. Затем Александр Белл изобрел телефон. Потом, уже в XX веке, появилось радиовещание, потом телевидение и наконец компьютерные сети.

4,7(89 оценок)

Открыть все ответы

Ответ:

kitmyfaded

07.06.2023

Жили-Были клавиатура, монитор, память и процессор, жили они дружно пока не возник спор кто из них главнее.Каждый начал приводить аргументы. "Я лучше потому-то без меня-клавиатуры мы бы не смогли печатать, то есть не смогли бы передавать информацию на компьютер"- сказала клавиатура , "Без меня-монитора мы бы не смогли видеть эту самую информацию"- говорил монитор, "Без меня- памяти мы бы не могли сохранить ее (информацию)"- протараторила память, "А без меня-процессора и вовсе компьютер не стал бы работать"- заявил процессор. И клавиатура, и монитор, и память, и процессор - все они неотъемлимые части компьютера, без них он бы не работал. Не стали они больше ссориться, и жили дружно и счастливо!

4,4(13 оценок)

Ответ:

masyanyapar

07.06.2023

Как то так, можно улучшить конечно, но числа генерируются в нужном интервале, если найду что получше, то перепешу

var

a:array[1..1000] of real;
i,x, j:integer;
cur:real;
l:text;
label y;

begin
assign(l, 'output.txt');
rewrite(l);
randomize;
for i:= 1 to 999 do
begin
y:
cur := 0.96743612142/( random(24)+random(11)+random(7));
x:= random(100);
if x > 20 then
if cur < 0.4 then cur:= cur * random(5);
if (cur = 0) or (cur > 1)then goto y;
a[i]:=cur;
end;
for i:= 1 to 999 do
for j:= 1 to 999 do
if a[j] > a[i] then swap(a[j], a[i]);
for i:= 1 to 999 do writeln(l, a[i]:0:16);
close(l);

end.

Улучшенная версия
var

a: array[1..1000] of real;

i, x, j: integer;

cur, tmp: real;

l: text;
label y, z;

begin
assign(l, 'output.txt');

rewrite(l);

randomize;

for i := 1 to 999 do

begin

y:

tmp := 1 - 1 / (random(33) + random(11) + random(7));

if tmp < 0.4 then goto y;

cur := tmp / abs(random(24) + random(11) - random(7));

if cur > 0.8 then

begin

x := random(10000);

if x < random(10000) then

begin

cur := cur / (1 - 1/(random(10) + random(11) + random(7))); end;

end;

x := random(100);

if x > 50 then

if cur < 0.5 then cur := cur * random(5);

if cur < 0.1 then

begin

x := random(10000);

if x < 7000 then

cur := cur * random(8);

end;

if cur > 0.8 then

cur:= cur - 1/(random(10) + random(11) + random(7)) - 1/(random(10) + random(11) + random(7)) + 1/(random(10) + random(11) + random(7)) + 1/(random(10) + random(11) + random(7));

if (cur = 0) or (cur > 1) then goto y;

a[i] := cur;

end;

for i := 1 to 999 do

for j := 1 to 999 do

if a[j] > a[i] then swap(a[j], a[i]);

for i := 1 to 999 do writeln(l, a[i]:0:16);

close(l);

end.

4,4(90 оценок)

Это интересно:

Кулинария-и-гостеприимство

25.08.2021

Как сделать чай из роз: полезные рецепты и особенности приготовления...

Искусство-и-развлечения

07.05.2022

Как играть на тромбоне: советы и рекомендации для начинающих...

12.09.2020

Как остановить человека, который задирает вас...

Компьютеры-и-электроника

26.04.2020