<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
3.Step(3).TakeWhile(t -> t <= 100).Sum.Println
end.
<h2>1683</h2>
Var n,i,p:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
if i mod 2 = 0 then k:=k*i;
writeln(k);
end.
Файл размером 20 кбайт передается через некоторое соединение со скоростью 1024 бит в секунду то есть за 20 секунд. Значит со скоростью 2048 бит он передастся в 2 раза быстрее то есть время передачи 10 секунд
- (N-мощность алфавита, i-количество бит для 1 символа, k-количество символов, I-информационный объём)
N=256 =>i=8 бит
I=1/16 мбайта
k-?
I = 1024*1024*8/16 =524 288 бит
<u><em>k = I/i = 524 288/ 8 = 65 536 символов</em></u>
2. а) 256 бит = 256/8= 32 байта
б) 0.5 мбайт = 0.5*1024*1024=524 288 байт
в) 12бит = 12/8 = 1.5 байта
г) 1.25 кбайт = 1.25*1024=1280 байт
1) Сместиться на (−5, −2)
2) Сместиться на (−3, −5)
3) Сместиться на (−5, −4)
<span>4) Сместиться на (−5, −5)
(-5-3-5-5;-2-5-4-5)=(-18;-16)
значит, чтобы вернуться в исходную точку нужно выполнить команду :
сместиться на(18;16)</span>