Помогите написать программы >< Задача 1: Среди целых чисел найти минимальное число,...

Question

Помогите написать программы ><</p>

Задача 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</p>

  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</p>

  begin

    c := c + 1;

    i := i * 1.02;

  end;

  writeln (c);

end.