Находим информационный вес 1 символа данных алфавитов
i=9 бит
i= 4 бит
9/4=2,25 раза
Program n_1;
var a, b, i, n: integer; c: boolean;
begin
c:=true;
read(n, a);
for i:=2 to n do begin
read(b);
if b>=a then c:=false;
a:=b;
end;
if (c=true) then writeln('Поседовательность убывающая')
else writeln('Поседовательность не является убывающей');
end.
Это для строго убывающей последовательности. Если требуется для невозрастающей - замени if b>=a then c:=false; на b>a then c:=false;
Var d : Real;
Begin
Readln(d);
Writeln('Длина ограждения: ',d+3.14159265*(d/2));
Writeln('Площадь: ',3.14159265*sqr(d/2)/2);
end.
Примем класс за 1, тогда
скорость 1-го 1/х
а 2-го 1/у
Время, за кот. они уберут класс: 1/(1/х + 1/у)= ху/(х+у)
1) время необходимое для передачи файла из пункта А в пункт Б - 80 сек
2) время необходимое для передачи файла из пункта Б в пункт В - 640 сек
3) 13 минут это 780 сек
4) 80+640 = 720 сек
5) 780-720 = 60 сек - это пауза на пункте Б
в задаче спрашивается Через какое время в секундах началась передача данных в пункте Б. следовательно 80+60=140