Question

Помогите написать программы ><Задача 1: Среди целых чисел найти минимальное число, которое больше 20 и делится на 17.Задача 2: Найти максимальное натуральное число меньше 5000, которое делится нацело на 39.Задача 3: 1 марта в банк положили 1000 руб. Каждый месяц вклад увеличивается на 2% от имеющейся суммы.а) за какой месяц величина процентной надбавки превысит 30 руб.?б) через сколько месяцев размер вклада превысит 1200 руб.? Заранее спасибо)

Answer 1

var

  i : integer;

begin

  i := 21;

  while i mod 17 <> 0 do i := i + 1;

  writeln (i);

end.

 

var

  i : integer;

begin

  i := 4999;

  while i mod 39 <> 0 do i := i - 1;

  writeln (i);

end.

 

var

  i : real;

  c : integer;

begin

  c := 0;

  i := 1000;

  while i * 0.02 <= 30 do

  begin

    c := c + 1;

    i := i * 1.02;

  end;

  writeln (c + 1);

end.

 

var

  i : real;

  c : integer;

begin

  c := 0;

  i := 1000;

  while i <= 1200 do

  begin

    c := c + 1;

    i := i * 1.02;

  end;

  writeln (c);

end.

Answer 2

Задача 1:

Для решения этой задачи можно использовать цикл while. Начнем с числа 21 и будем увеличивать его на 17 до тех пор, пока не найдем число, которое делится на 17 без остатка и больше 20.

number = 21

while number % 17 != 0 or number <= 20:
    number += 1

print(number)

Результатом будет минимальное число, которое больше 20 и делится на 17.

Задача 2:

Аналогично предыдущей задаче, можно использовать цикл while для поиска максимального числа, которое делится на 39 и меньше 5000.

number = 5000

while number % 39 != 0 or number >= 5000:
    number -= 1

print(number)

Результатом будет максимальное натуральное число, которое делится на 39 и меньше 5000.

Задача 3:

а) Чтобы найти месяц, в котором величина процентной надбавки превысит 30 рублей, мы можем использовать цикл while. Начнем с начальной суммы вклада и будем увеличивать ее на 2% каждый месяц, пока величина процентной надбавки не превысит 30 рублей.

deposit = 1000
percent_increase = 0.02
month = 0

while deposit * percent_increase > 30:
    deposit += deposit * percent_increase
    month += 1

print(month)

Результатом будет номер месяца, в котором величина процентной надбавки превысит 30 рублей.

б) Чтобы найти количество месяцев, через которое размер вклада превысит 1200 рублей, мы также можем использовать цикл while. Увеличиваем размер вклада на 2% каждый месяц, пока он не превысит 1200 рублей.

deposit = 1000
percent_increase = 0.02
month = 0

while deposit < 1200:
    deposit += deposit * percent_increase
    month += 1

print(month)

Результатом будет количество месяцев, через которое размер вклада превысит 1200 рублей.