V= 56 Кбит/с=56*2^10 бит/с =7*2^13 бит/с
F= 5 Мбайт = 5*2^23 бит
t =F/v = 5*2^23 : (7*2^13) =5*2^10 / 7 =731,43c=12,2 минуты
T=150*2*8/(2+6)=300 сек=5 мин
ответ передача заняла 5 минут.
<span>Const k = 10;
Var a,b,c,m,n : Integer;
Begin
For m:=1 to k do
For n:=1 to k do
Begin
a:=sqr(m)-sqr(n);
b:=2*m*n;
c:=sqr(m)+sqr(n);
Writeln(m:5,n:5,a:8,b:8,c:8);
end;
end.</span>
Попугай: голова , перо кВ попугай туловище хвост крило
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
fs=(string,string);
begin
var L:=new List<fs>;
repeat
var aw:=ReadlnString('>').ToWords;
if aw.Length=0 then break;
L.Add((aw[1],aw[0]))
until false;
var a:=L.OrderBy(t->t[0]);
var i:=1;
foreach var x in a do begin
Writeln(i:4,' ',x[1],' ',x[0]);
i+=1
end
end.
<u>Пример</u>
> J.X. Smith
> B.A. Weiter
> A.C. Johnes
>
1 A.C. Johnes
2 J.X. Smith
3 B.A. Weiter