До­ку­мент (без упа­ков­ки) можно пе­ре­дать по ка­на­лу связи с од­но­го ком­пью­те­ра на дру­гой за 90се­кунд.

Если пред­ва­ри­тель­но упа­ко­вать до­ку­мент ар­хи­ва­то­ром, пе­ре­дать упа­ко­ван­ный до­ку­мент, а потом рас­па­ко­вать на ком­пью­те­ре по­лу­ча­те­ля, то общее время пе­ре­да­чи (вклю­чая упа­ков­ку и рас­па­ков­ку) со­ста­вит 40се­кунд. При этом на упа­ков­ку и рас­па­ков­ку дан­ных всего ушло 20се­кунд.

Раз­мер ис­ход­но­го до­ку­мен­та 36Мбайт. Чему равен раз­мер упа­ко­ван­но­го до­ку­мен­та (в Мбайт)?
​

ответ:

25

Объяснение:

Присваиваем переменной i значение 20, а f - значение 1:

i:=20; f:=1;

Объявляем цикл, который, пока выполняется условие (i>15), будет выполнять команды, содержащиеся в { }:

while (i > 15) { i:=i - 2; f := f + i div 2; }

Изначально i равна 20. Потом идёт цикл: i > 15 ? да, тогда:

присваиваем i новое значение: i старое - 2. То есть теперь i равна 20; присваиваем f новое значение: f старое + целая часть от деления i на 2. То есть теперь переменная f равна 1 + 18/2 = 10.

Возвращаемся к условию цикла. i > 15 ? да, тогда:

присваиваем i новое значение: i старое - 2. То есть теперь i равна 16; присваиваем f новое значение: f старое + целая часть от деления i на 2. То есть теперь переменная f равна 10 + 16/2 = 18.

Возвращаемся к условию цикла. i > 15 ? да, тогда:

присваиваем i новое значение: i старое - 2. То есть теперь i равна 14; присваиваем f новое значение: f старое + целая часть от деления i на 2. То есть теперь переменная f равна 18 + 14/2 = 25.

Возвращаемся к условию цикла. i > 15 ? нет, цикл завершается, конец программы. f равна 25.

Задание 1:

ответ: 120

Объяснение:

Изначально i = 0,  f = 1. Потом идёт цикл, который пока i<15? выполняет:

Увеличивает i на 4Умножает f на 2Увеличивает f на i

Цикл будет выполнятся при i = 0, 4, 8, 12 (потом идёт 16, условие 16<15 не выполняется).

i = 0             i = 0+4 = 4           f = 1*2 = 2            f = 2+4 = 6i = 4             i = 4+4 = 8           f = 6*2 = 12          f = 12+8 = 20i = 8             i = 8+4 = 12          f = 20*2 = 40      f = 40+12 = 52i = 12            i = 12+4 = 16        f = 52*2 = 104     f = 104+16 = 120Задание 2:beginReadArrInteger(3).Sum(x -> x<0 ? x : 0).Println;end.

Пример работы: