Question

PascalABC.net Пожалуйста, решите используя только: int64, begin, var, for, if, end. Больше добавлять переменных не надо. Даю 98 баллов Теперь, когда торговля в городе процветает, пришло время подумать о долгосрочных перспективах. В вашу казну недавно пришло n поступлений по k сентиннеалей. Вы решили инвестировать их в промышленность и рассчитываете на ежегодное увеличение своего вложения в m раз. Рассчитайте, сколько сентиннеалей у вас будет через х лет. Формат входных данных В первой строке вводится целое число денежных поступлений n (1 <= n <= 100) Во второй строке вводится n целых чисел k в строчку, где k - каждое из постулений (1<= k <=10000) В третьей строке вводятся целые числа x и m - количество лет, в течении которых будет накапливаться итоговая сумма (1<= x <=10), и число раз, в которые будет увеличиваться сумма каждый год (2<= m <=12) Формат выходных данных Выводится целое число, равное итоговой сумме накоплений. Примеры входные данные 5 2 2 5 4 2 1 2 выходные данные 30

Answer 1

var

   n, k, x, m: int64;

begin

   readln(n);

   for x := 1 to n do begin

       read(k);

       n += k-1;

   end;

   readln(x, m);

   writeln(n*x*m);

end.

Answer 2

Вот решение вашей задачи на языке PascalABC.NET:

pascalCopy code
program Main;

var
  n, i, k, x, m: int64;
  
begin
  readln(n); // Вводим количество поступлений
  k := 0;
  for i := 1 to n do
  begin
    readln(k); // Вводим поступление
    x := x + k; // Накапливаем сумму
  end;
  
  readln(x, m); // Вводим количество лет и коэффициент увеличения
  
  for i := 1 to x do
    x := x * m; // Увеличиваем сумму x раз
  
  writeln(x); // Выводим итоговую сумму накоплений
end.

Программа сначала считывает количество поступлений n, затем в цикле считывает n поступлений и накапливает их сумму в переменной x. Затем считывает количество лет x и коэффициент увеличения m. Далее в цикле увеличивает сумму x на m раз и выводит итоговую сумму накоплений.

Надеюсь, это решение поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.