Даны первый член и разность арифметической прогрессии. написать рекурсивную процедуру для нахождения $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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Варя11011

02.11.2021 13:34

Сколько раз будет выполнен цикл forn:=1to20do?...

linkingday

16.11.2020 07:31

1. Перевести числа из 10-ой СС в : a. 56284—X b. 1010235—X9 c. 985647—X16 2. Перевести числа из n-ой СС в k-: a. 2358—X16 b. 5A914—X11 c. 5A914—X2 d. 2358—X9 e. 10101111012—X16...

Mezhanova16

17.04.2020 15:42

С графа реши задачу. Сколько различных буквенных сочетаний (в буквенных сочетаниях — две буквы) можно составить из букв P, L, N, V? Буквы в буквенных сочетаниях не...

павликпавлик2

29.12.2020 08:54

Максимально упростить формулу своего варианта, воспользовавшись законами булевой алгебры. Затем с таблиц истинности установить эквивалентность упрощенного выражения...

LymarIvan

26.01.2022 20:44

Какое значение r выведeт на экран фрагмент программы: var a,b,i,r: integer; begin b:=6; a:=2; r:=1; for i:=1 to b do begin r:=r*a; end; writeln(r); end....

ErmolinVI

06.08.2020 19:13

Очень нужно Придумайте двоичные коды для 7 русских букв и закодируйте с него 5 слов...

chanel00

16.01.2020 22:34

Имеется четыре красных леденца, пять синих и шесть зелёных. Из них нужно составить три подарочных набора по пять конфет. Найти, сколько существует сделать это, если...

ievghienii1

07.04.2021 21:51

Напечатайте в столбик нечетные числа от 3 до 25 через цикл с постусловием. плз скорее....

Apsalikovat

30.04.2023 23:19

Надо сообщение об . какое именно не заранее !...

mdjjhhjdjnemash

07.11.2021 04:33

Что здесь неправильно? program qq; begin writeln ( 1*5=5 ); writeln ( 2*5= 10 ); writeln ( 3*5 = 15 ); writeln ( 4* 5 = 20 ); writeln ( 5 * 5 = 25 ); writeln ( 6 *...

Ответ:

lesikon11

05.10.2020 12:36

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

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку