Информатика, опубликовано 2018-08-22 23:51:33 by Гость
Составьте программу, которая определяет,через сколько лет сумма S, положенная в банк под процент P с годовой капитализацией, увеличится в 5 раз.
Ответ оставил Гость
Var year: Integer; s, s1, p: Real;
Begin
write(Сумма: ); readln(s);
write(Процент: ); readln(p);
s1 := s; year := 0;
while s * 5 > s1 do
begin
s1 := s1 + s1 * p / 100;
year := year + 1;
end;
write(year);
End.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на