Const
a=-10;
b=1;
var
i: integer;
begin
for i:=a to b do
writeln('F1(',i,')=',1/Tan(i));
end.
Const
a=2;
b=10;
var
i: integer;
x,f,min,max: real;
begin
x:=a;
min:=power(x,3/5);
max:=min;
for i:=a to b do
begin
x:=i;
f:=power(x,3/5);
writeln(f);
if f<min then min:=f;
if f>max then max:=f;
end;
writeln('min=',min);
writeln('max=',max);
end.
10000 Кб
256000бит/с *40 с.=10240000 бит
10240000:1024=10000
(1 бит=1024 Кб)
Знаю только то, что передача каждого байта и бита контролируется. И передается все побайтно. Видимо, ответ: Верно.
Приведу часть программы.
n-любое число
...........................
a: array[1..n] of integer;
................................
K:=0;
for i:=1 to n do
if a[i]=1958 then inc(k); {или K:=k+1}
writeln(k);
end.
1)Начало
2)Сравни первое и второе числа;если первое меньше второго,то поменяй их местами.
3)Сравни второе и третьего числа;если второе меньше третьего ,то поменяй их местами.
4)Если теперь три числа расположены в порядке убывания ,то исполни пункт 5) этого алгоритма; иначе вернись. к пункту 2).
<span>5)Конец</span>