Sпруда составляет 2000 м². из них в настоящий момент 50 м² покрыто водорослями. каждые сутки s водорослей увеличивается на 0, 1 от уже занятой площади. определить через сколько дней пруд покроется водорослями.

Var s:real; k:integer;
begin
s:=50;
k:=0;
while s<2000 do
 begin
 k:=k+1;
 s:=s+0.1*s;
 end;
writeln(k);
end.

Результат:
39

Нужно решить неравенство: 50·1,1ⁿ ≥ 2000.
1,1ⁿ ≥ 40
n ≥ 38,7
n = 39
ответ: через 39 дней.

Многобайтные кодировки: Unicode (UTF-8)

Объяснение:

В ближайшее время все более важную роль будет играть особый формат Unicode (и ISO 10646) под названием UTF-8. Эта «производная» кодировка пользуется для записи символов цепочками байтов различной длины (от одного до шести), которые с несложного алгоритма преобразуются в Unicode- коды, причем более употребительным символам соответствуют более короткие цепочки. Главное достоинство этого формата — совместимость с ASCII не только по значениям кодов, но и по количеству бит на символ, так как для кодирования любого из первых 128 символов в UTF-8 достаточно одного байта (хотя, например, для букв кириллицы нужно уже по два байта).

116

Объяснение:

d = 100

для k от 5 до 12 выполнить

Действия в цикле:

1)  d = d - 6

2) d = d + 8

Вывод d

Цикл выполнится 8 раз

количество повторов в цикле равно конечное значение (12) переменной  счётчика (k) минус начальное  значение (5)  переменной  счётчика (k) плюс 1

количество повторов в цикле = 12 - 5 + 1 = 7 + 1 = 8

В цикле переменная d сначала уменьшается на 6, а затем увеличивается на 8.

В сумме эти действия () увеличивают переменную d на 2.

Следовательно за весь цикл переменная d увеличится на 2 * 8.

Т.к. в начале программы d = 100, то

d = 100 + 2 * 8 = 100 + 16 = 116