Вопрос по информатике:
Помогите написать программы ><
Задача 1: Среди целых чисел найти минимальное число, которое больше 20 и делится на 17.
Задача 2: Найти максимальное натуральное число меньше 5000, которое делится нацело на 39.
Задача 3: 1 марта в банк положили 1000 руб. Каждый месяц вклад увеличивается на 2% от имеющейся суммы.
а) за какой месяц величина процентной надбавки превысит 30 руб.?
б) через сколько месяцев размер вклада превысит 1200 руб.? Заранее спасибо)
- 09.01.2018 11:48
- Информатика
- remove_red_eye 2933
- thumb_up 96
Ответы и объяснения 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.
;- 09.01.2018 15:20
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.