<span>схема отношения
векторное изображение
схема алгоритмов
функциональная схема
что то мб подойдет</span>
//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(10, 1, 10);
writeln(A[Random(A.Length)]);
end.
Var st,s: string;
i,j: integer;
begin
s:='9876543210';
write('число: '); readln(st);
j:=1;
while j<=length(s) do
begin
i:=1;
while i<=length(st) do
begin
if st[i]=s[j] then
begin
write(s[j],' ');
delete(st,i,1);
i:=i-1;
end;
i:=i+1;
end;
j:=j+1;
if length(st)=0 then break;
end;
<span>end.
</span>
1. Найдем объем сообщения. 30*60*16*50=1440000
2. Найдем время передачи сообщения модемом. 1440000/28800=50
Ответ: 50 секунд.