Через паскаль!(1 задача)В первый день лягушка съела 1 комара,каждый последующий день она съедает в 2 раза больше и еще 1 комара 1)Сколько комаров она съест через 10 дней? 2)Сколько дней понадобиться,чтобы лягушка съела больше 3...

1. Числа образуют последовательность, для n-го члена которой верны следующие соотношения: [latex]a_n=2\cdot a_{n-1}+1, \ n \in \mathbb R \\ a_n=2^n-1[/latex] Последняя формула позволит ответить на вопрос "Сколько дней понадобиться,чтобы лягушка съела больше 35 комаров за раз", для чего надо решить неравенство: [latex]2^n-1>35; \ 2^n>36 \to n=6 \quad (2^5=32, 2^6=64)[/latex] Т.е. это произойдет в шестой день. Хороший способ проверить работу программы. var   i,an,s,f:integer;   begin   s:=0; an:=0; f:=0;   for i:=1 to 10 do   begin     an:=2*an+1;     if f=0 then       if an>35 then       begin         Writeln('День ',i,', за раз съедено комаров- ',an);         f:=1       end;     s:=s+an   end;   Writeln('За 10 дней съедено комаров: ',s) end. Результат выполнения программы: День 6, за раз съедено комаров- 63 За 10 дней съедено комаров: 2036 2. Используем алгоритм Евклида. var   a, b: integer; begin   Write('Введите два натуральных числа: '); Readln(a,b);   if a<>b then     repeat       if a > b then a := a - b       else b := b - a     until a=b;   Writeln('НОД=',b) end. Тестовое решение: Введите два натуральных числа: 264 5436 НОД=12