М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Аня341
Аня341
13.12.2021 10:13 •  Информатика

Кто умеет пользоваться программой pascalabc. решить : сколько мне нужно положить завтра денег в банк под 4,5 %,чтобы в возрасте христа(33 года) купить квартиру за 2500000 рублей

👇
Ответ:
лунтик72
лунтик72
13.12.2021
Задача на "сложный процент".
Если первоначальная сумма равна k, то при годовом проценте p ее величина S через год составит k+k*p/100 = k(1+p/100).
Через два года S составит k(1+p/100)+k*(1+p/100)*p/100 = k(1+p/100)(1+p/100) = k(1+p/100)².
Тогда через n лет:
\displaystyle S=k\left(1+ \frac{p}{100}\right)^n \to k= \frac{S}{\left(1+ \displaystyle \frac{p}{100}\right)^n}

У нас S=2500000, p=4.5, n=33-14=19.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadReal('Целевая сумма;');
  var p:=ReadReal('Годовой процент, %:');
  var n:=ReadInteger('Количество лет');
  Writeln('Сумма начального вложения составит ',S/(1+p/100)**n:0:2)
end.

Пример
Целевая сумма; 2500000
Годовой процент, %: 4.5
Количество лет 19
Сумма начального вложения составит 1083254.47
4,6(4 оценок)
Открыть все ответы
Ответ:
overlord735
overlord735
13.12.2021
program cube; var a : real; begin writeln('Программа вычисляет объем куба и площадь '+ 'его боковой поверхности по длине ребра'); {I - ввод + ЗОД} repeat write('Введите длину ребра куба '); readln(a); if a<=0 then writeln('Ошибка! Длина ребра не может быть нулевой или отрицательной. '+ 'Повторите ввод.'); until a>0; {II, III - расчет и вывод} writeln('Длина ребра куба = ',a:8:3,' м'); writeln('Объем этого куба = ', (a*a*a):8:3,' м^3'); writeln('А площадь его боковой поверхности = ', (6*a*a):8:3,' м^2'); writeln('Нажмите [Enter] для завершения программы'); readln; end.
4,4(81 оценок)
Ответ:
satova1
satova1
13.12.2021
Pascal
1. var a, b: real;
begin
  write('Введите стороны прямоугольника: ');
  read(a, b);
  writeln('Периметр = ', 2 * a + 2 * b); 
end.

2. var p, b: real;
begin
  write('Введите два числа: ');
  read(p, b);
  writeln('Произведение = ', p * b);
  writeln('Разность = ', p - b);
end.

3. var b: real;
begin
  write('Введите длину ребра: ');
  read(b);
  writeln('Объем = ', b * b * b);
end.

4. var r: real;
begin
  write('Введите радиус: ');
  read(r);
  writeln('Площадь = ', 3.14 * r * r);
end.

5. var a, b, c: real;
begin
  write('Введите три стороны: ');
  read(a, b, c);
  writeln('Периметр = ', a + b + c);
end.
4,7(85 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ