7200 * 8 = 57600 Кбит
<span>57600 / 196,608= ~300 сек = ~5 мин
Ответ: 5 минут</span>
1.
var a,c:integer; m:set of 0..9; b:boolean;
begin
readln(a);
m:=[];
b:=false;
while a>0 do
begin
c:=a mod 10;
if c in m then b:=true;
m:=m+[c];
a:=a div 10;
end;
if b then writeln('Да')
else writeln('Нет');
end.
Пример:
121
Да
2.
var a,b,c:integer;
begin
readln(a);
c:=a;
b:=0;
while c>0 do
begin
b:=b*10+c mod 10;
c:=c div 10;
end;
if a=b then writeln('перевертыш')
else writeln('Нет');
end.
Пример:
121
перевертыш
1)
Сеть Интернет, являющаяся сетью сетей и объединяющая громадное
количество различных локальных, региональных и корпоративных сетей,
функционирует и развивается благодаря использованию единого принципа
маршрутизации и транспортировки данных.
Маршрутизация данных.
Маршрутизация данных обеспечивает передачу информации между
компьютерами сети. Рассмотрим принцип маршрутизации данных по аналогии с
передачей информации с помощью обычной почты. Для того чтобы письмо
дошло по назначению, на конверте указывается адрес получателя (кому
письмо) и адрес отправителя (от кого письмо).
<span>Аналогично,
передаваемая по сети информация «упаковывается в конверт», на котором
«пишутся» Интернет-адреса компьютеров получателя и отправителя, например
«Кому: 198.78.213.185», «От кого: 193.124.5.33». Содержимое конверта на
компьютерном языке называется Интернет-пакетом и представляет собой
набор байтов.
2)</span>
<span>Маршрутизация Интернет-пакетов обеспечивает доставку информации от компьютера-отправителя к компьютеру-получателю.</span>
Маршруты
доставки Интернет-пакетов могут быть совершенно разными, и поэтому
Интернет-пакеты, отправленные первыми, могут достичь
компьютера-получателя в последнюю очередь.
«География» Интернет Существенно отличается от привычной на
географии. Скорость получения информации зависит не от удаленности
сервера Интернет, а от маршрута прохождения информации, т.е. количество
промежуточных серверов и качество линий связи (их пропускные
способности), по которым передается информация от сервера к серверу.
<span>С
маршрутом прохождения информации в Интернете можно познакомиться с
помощью специальных программ, которые позволяют проследить, через какие
серверы и с какой задержкой передается информация с выбранного сервера
Интернета на ваш компьютер.</span>
Var
a, b, c, v: real;
begin
writeln('Введите длины сторон a,b,c');
readln(a, b, c);
writeln('Объем параллелепипеда: ', a * b * c)
end.
Var
m,n,p:real;
k:integer;
begin
Write('Введите через пробел начало и конец интервала: ');
Read(m,n);
p:=1;
k:=Trunc(m);
if (k mod 2)=0 then Inc(k); { Первое нечетное }
n:=Int(n); { целочисленный конец интервала }
while k<=n do
begin p:=p*k; k:=k+2 end;
Writeln('Произведение нечетных на интервале: ',p)
end.
<em>Тестовое решение:</em>
Введите через пробел начало и конец интервала: -3.8 8.2
Произведение нечетных на интервале: 315
var
m,n,i,j:integer;
p:real;
begin
Write('Введите через пробел целочисленные границы интервала: ');
Read(m,n);
for i:=m to n do
begin
p:=1;
if i=0 then Writeln('2^0=1')
else
if i<0 then
begin for j:=-1 downto i do p:=p/2; Writeln('2^(',i,')=',p) end
else
begin for j:=1 to i do p:=p*2; Writeln('2^',i,'=',p) end
end
end.
<em>Тестовое решение:</em>
Введите через пробел целочисленные границы интервала: -5 10
2^(-5)=0.03125
2^(-4)=0.0625
2^(-3)=0.125
2^(-2)=0.25
2^(-1)=0.5
2^0=1
2^1=2
2^2=4
2^3=8
2^4=16
2^5=32
2^6=64
2^7=128
2^8=256
2^9=512
2^10=1024