На протяжении июня лесное озеро зарастает ряской. первого июня ряски ещё не было. второ-го июня на озере было два растения ряски. третьего июня было уже четыре растения ряски, чет-вёртого – восемь и так далее. тридцатого июняряска покрывала ровно всю поверхность озера. назовите дату, когда она покрывала ровно половину поверхности озера. ответ обосновать.

с каждым днем количество ряски увеличиваеется в 2 раза. 30 июня ряска покрыла всю поверхность озера, значит 29 июня ряской была покрыта половина озера.

мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.

Без проверки того, есть ли символ в строке:   var     s: string;     c: char;     i: integer; begin write('введите строку: '); readln(s); write('введите символ: '); readln(c); write('символ "',c,'" встречается на позициях: '); for i: = 1 to length(s) do       if s[i] = c then write(' ',i) end. пример работы программы: введите строку: 12345789654621685798546323312125 введите символ: 5 символ "5" встречается на позициях: 5 10 17 21 32 с проверкой: var     s: string;     c: char;     i: integer; begin write('введите строку: '); readln(s); write('введите символ: '); readln(c); i: =1; while (s[i] < > c)and(i< length(s)) do     i: =i+1; if s[i] = c then     begin     write('символ "',c,'" встречается на позициях: ');     for i: = i to length(s) do             if s[i] = c then write(' ',i)     end else     writeln('данный символ в строке не встречается') end. пример работы программы: введите строку: 12312123 введите символ: 4 данный символ в строке не встречается

Const n=25;   var a,b: array[1..n] of integer; i,j,t: integer;   begin randomize; writeln('результаты: '); for i: =1 to n do   begin   a[i]: =random(31)+10;   write(a[i]: 3);   end; writeln; for i: =1 to n do b[i]: =i; for i: =1 to n-1 do   for j: =1 to n-i do     if a[b[j]]> a[b[j+1]] then     begin      t: =b[j]; b[j]: =b[j+1]; b[j+1]: =t;     end; writeln('победитель: '); writeln('min = ',a[b[1]],' его номер = ',b[1]); j: =1; while b[j]< > 4 do j: =j+1; writeln('результат российского лыжника: ', j,' место'); end. пример: результаты:   38 19 22 11 16 40 22 18 21 16 15 33 38 34 39 21 19 10 25 15 40 13 34 27 37 победитель: min = 10 его номер = 18 результат российского лыжника: 2 место ps. места, которые заняли спортсмены с одинаковыми результатами, в программе будут различны.