Готовые дипломные, курсовые, рефераты. Вы можете бес-платно скачать любую понравившуюся работу.
ГОТОВЫЕ РАБОТЫ
ПОХОЖИЕ ВОПРОСЫ
Сегодня примерно в 21:28 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.
Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:
И сразу же ответим на него:
После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:
Var d: integer;
r,s:real;
begin
r:=1000;
for d:=1 to 12 do
begin
r:=r+r*(2/100);
r := r*100;
r := round(r);
r := r/100;
s:=r*(2/100);
s := s*100;
s := round(s);
s := s/100;
writeln('Сумма вклада через ',d, ' месяц = ', r, ' руб','. Прирост в следующем месяце ', s, ' руб');
end;
end.