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