// PascalABC.NET
begin
var L1 := ReadlnReal('введите расстояние в км: ');
var L2 := ReadlnReal('введите расстояние в футах: ');
L2 := L2 * 0.305E-3; // перевод футов в километры
if L1 < L2 then
Println('L1 меньше')
else if L2 < L1 then
Println('L2 меньше')
else
Println('L1 = L2')
end.
var x,y: real;
begin
readln(x,y);
if (x>=-6)and(x<=-3)and(y>=-3)and(y<=2)or
(x>=-6)and(x<=-1)and(y>=2)and(y<=7)
then writeln('Yes') else writeln('No');
end.
Пример:
-3 3
Yes
Для начала найдём количество бит, переданное за 5 секунд:
28899*5=144000 бит
Если один символ кодируется 2 битами, то найдём количество символов так:
144000/2=72000