Запишите на языке паскаль алгоритм решения . клиент некоторого банка 1 марта открыл счёт, вложив 10000 руб. через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. определить через сколько месяцев размер вклада превысит 12000 руб. !

var

  month, sum: real;

begin

  sum : = 10000;

  month : = 0;

  while (sum < 12000) do

  begin

    sum : = sum + (sum / 100) * 2;

    month : = month + 1;

 
end;

  writeln('через ',month,' месяцев размер вклада превысит 12000 руб');

end.

Задача 1:

def rec(s):

       if len(s) == 0:

       return s   #Если длина множества равна нулю, мы возвращаем пустое множество

        for value in s:  

              a = []   #Присваиваем в переменную a пустой список

              a.append(value)  #Добавляем в список значение из множества

             break   #Останавливаем цикл

      s.discard(a[0])  #Удаляем элемент из множества, который находится в списке на нулевой позиции

      return rec(s)   #Вызываем рекурсивную функцию для нового множества

print(rec(#любое множество))

Задача 2

spisok = [1745345,98726,439872634,7312,64872,

               123687126,9312,4124,231,3123,34,3453]

anom = lambda x : x * 1.185   #Создание анонимной функции

new_spisok = []   #Будущий список с новыми значениями

for value in spisok:

new_spisok.append(float('%.3f' % anom(value)))   #Добавляем в новый список значение, которое обработало анонимная функция (умножила на 1.185).  

print(new_spisok)

'%.3f' % anom(value) означает, что мы форматируем наше число до 3 знаков после запятой (f - для форматирования в виде числа с плавающей запятой, % - форматирующий оператор). После форматирования, на выходе, мы получаем строку, поэтому строку нужно преобразовать назад в вещественный тип данных (float('%.3f' % anom(value)))