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

Бравоо!!!!!!!!!!!!!!!!

Бравоо!!!!!!!!!!!!!!

1. Числа образуют последовательность, для n-го члена которой верны следующие соотношения:Последняя формула позволит ответить на вопрос "Сколько дней понадобиться,чтобы лягушка съела больше 35 комаров за раз", для чего надо решить неравенство:Т.е. это произойдет в шестой день. Хороший способ проверить работу программы.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 дней съедено комаров: 20362. Используем алгоритм Евклида.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