Var a,b:real;
begin
readln(a,b);
a:=sqr(a);
b:=sqr(b);
if a > b then write('n=1')
else write('n=2');
end.
Ответ:
10 с
Объяснение:
Поскольку скорость дана в бит/с, объем информации нужно перести в биты.
В одном байте 8 бит, поэтому количество байт умножаем на 8.
Получаем 125 × 8 = 1000 бит.
Если за секунду передается 100 бит, то на всю передачу будет затрачено 1000 / 100 = 10 секунд
"В шести литрах 6000 миллилитров."
в этой строке 32 символа (с пробелами и точками). Каждый из них кодируется 16ю битами, значит всего будет
16 * 32 = 512 бита
Ответ. Информационный объем сообщения равен 512 бит
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Fib(n: integer): integer;
begin
if n < 3 then Result := 1
else
begin
var (a, b) := (1, 1);
for var i := 3 to n do
(a, b) := (a + b, a);
Result := a
end
end;
begin
for var i := 1 to 10 do Fib(i).Print; // контрольный пример
end.
<h2>1 1 2 3 5 8 13 21 34 55 </h2>