begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -10, 99);
a.Println;
var k := n div 2;
if n.IsEven then
a := a[k:] + a[:k]
else
a := a[k + 1:] + Arr(a[k]) + a[:k];
a.Println
end.
1) 458 -> 45
2) 45*2 = 90
3) 90 -> 9
4) 9*2=18
5)18*2=36
6)36*2=72
7)72->7
8)7*2=14
Насколько я понимаю, это комплекс интернет - услуг.
Var a,i:longint;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
while not eof do
begin
read(a);
if a mod 2<>0 then inc(i);
end;
write(i);
close(input);close(output);
end.
Файл размером 100 Кбайт передаётся через некоторое соединение со скоростью 1536 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 768 бит в секунду. В ответе укажите одно число – размер файла в Кбайт. Единицы измерения писать не нужно.1. 100×1024×8=819200 бит. 2. t=819200бит/1536бит/сек=533сек.3. 533сек×768битсек=409344бит.4. 409344/8=51168байт.5. 51168байт/1024=50Кбайт. Я советую тебе проверить, правильно ли ты написал (а) числа, ибо ответ не целый много, где получается. Так как время одинаковое, легче решать пропорцией.
100 Кбайт : 1536 бит в секунду = х Кбайт / 768 бит в секунду
х Кбайт = 100 Кбайт × 768 бит в секунду / 1536 бит в секунду = 100 К байт / 2 = 50 Кбайт