Даны первый член и разность арифметической прогрессии. Написать рекурсивную процедуру для нахождения

$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

Question

Информатика

Софрон

25 апреля, 15:28

Даны первый член и разность арифметической прогрессии. Написать рекурсивную процедуру для нахождения

$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

+1

Ответы (1)

Знаете ответ?

Прокоп · Answer 1

Var n, a1, d, an, s:integer;

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