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