Даны первый член и разность арифметической прогрессии. написать рекурсивную процедуру для нахождения $n$-го члена прогрессии и суммы первых $n$ членов. формат входных данных в первой строке входного файла содержатся 3 целых числа $n$, $1 \le n \le 100$, первый член прогрессии $a_1$, $\mid a_1 \mid \leq 100$ и разность прогрессии $d$, $\mid d \mid \leq 100$. формат выходных данных выходной файл должен содержать два числа - $n$-й член прогрессии и сумму первых $n$ членов. примеры: вход 5 34 -2 выход 26 150
Denis8903
2
22.08.2019 13:30
2
Другие вопросы по теме Информатика
20112005505438
06.03.2020 22:15
алексей041
06.03.2020 22:15
Yuki16
06.03.2020 22:15
KamilyaG
06.03.2020 22:18
liza1460
06.03.2020 22:18
McMamon
06.03.2020 22:19
LitRoboBoytle
02.11.2020 08:12
TTpo100y4eHuk
02.11.2020 08:12
Популярные вопросы
- Запиши добрые поступки, которые могут принести добро другому человеку.(Не...
1 - Пятый класс Сказка о мертвой царевне и о семи богатырях ответь на...
1 - Согласно Утрехтскому миру 1713г. Англия получила Новую Шотландию....
3 - 3 Ознакомьтесь с анализом стихотворения Н.А. Заболоцкого, который...
2 - Докажи что произведения У.Шэкспира ,,Ромео и Джульета,, трагедия...
1 - Образ процесса: Тип ответа: Одиночный выбор1. Структура данных, содержащая...
3 - Запишите число в естественной форме: 4,24501Е+2...
3 - Чистый понедельник». 1.Объясните название рассказа. 2.Докажите, что...
3 - || Рассказ «Разбуженный соловьями»(Юрий Яковлёв)Отметь вариант, который...
2 - 4-тапсырма. Сөйлемдерді көшіріп жазып, көнерген сөздердің мағынасын...
1
procedure p(n,a1,d:integer; var an,s:integer);
begin
if n>1
then begin p(n-1,a1,d,an,s); an:=an+d; s:=s+an; end
else begin an:=a1; s:=a1; end;
end;
begin
writeln('n, a1, d:');
readln(n,a1,d);
p(n,a1,d,an,s);
writeln('an = ',an,' s = ',s);
end.
Пример:
n, a1, d:
5 34 -2
an = 26 s = 150