
Гражданин 1 марта открыл счет в банке вложив 1000 руб. Через каждый месяц размер вклада
увеличивается на 2% от имеющейся суммы. Определить:1) За какой месяц величина ежемесячного вклада превысит 30 руб.2) Через сколько месяцев размер вклада превысит 1200 руб.var k,b:integer;x,v:real;begin v:=1000;repeat v:=v*1.02; inc(k) until v>1200;x:=0;repeat beginv:=v+x;x:=v*0.02;inc(b);end;until x>=30;writeln('Через ',b,' месяцев велечина ежемесячного вклада привысит 30 Руб.');writeln('Через ',k,' месяцев размер вклада будет больше 1200 Руб.');end.

Ответы на вопрос

Чтобы понять, как работает данный код, давайте проанализируем его.
Переменные: - `k` и `b` - это счетчики для месяцев в каждом задании. - `x` - это переменная, которая хранит значение каждого ежемесячного прироста вклада. - `v` - это переменная, которая хранит текущую сумму вклада.
Условие первого задания: "За какой месяц величина ежемесячного вклада превысит 30 руб."
Код: ``` x := 0; repeat begin v := v + x; // увеличиваем текущую сумму вклада на ежемесячный прирост x := v * 0.02; // вычисляем ежемесячный прирост вклада inc(b); // увеличиваем счетчик месяцев end; until x >= 30; // повторяем до тех пор, пока ежемесячный прирост будет больше или равен 30 ``` После выполнения этого кода в переменной `b` будет храниться количество месяцев, за которое величина ежемесячного вклада превысит 30 руб.
Условие второго задания: "Через сколько месяцев размер вклада превысит 1200 руб."
Код: ``` v := 1000; // сбрасываем значение суммы вклада на изначальную repeat v := v * 1.02; // увеличиваем текущую сумму на 2% inc(k); // увеличиваем счетчик месяцев until v > 1200; // повторяем до тех пор, пока сумма вклада не превысит 1200 ``` После выполнения этого кода в переменной `k` будет храниться количество месяцев, через которое размер вклада превысит 1200 руб.
В итоге, код выводит результаты обоих заданий:
``` writeln('Через ', b, ' месяцев величина ежемесячного вклада превысит 30 Руб.'); writeln('Через ', k, ' месяцев размер вклада будет больше 1200 Руб.'); ```
То есть вывести количество месяцев для каждого задания, через которое будет достигнуто условие.


Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili