Ответы на вопрос:
// pascalabc.net 3.0, сборка 1160 от 05.02.2016 begin writeln('s=',pi*sqr(readreal('r=')): 0: 5) end. тестовое решение: r= 12.7 s=506.70748
begin
var a : = arrgen(10, i -> 20 * i + 13);
a.println;
var b : = arrgen(17, i -> 17 - i);
b.println
end.
объяснение:
тут главное найти формулу для общего члена.
а) 33 - 13 = 20; 53 - 33 = 20 все понятно, последующий элемент получается из предыдущего путем прибавления 20.
a[i+1] = a[i] +20 - это рекуррентная формула.
можно также получить значение любого элемента как
a[i] = 20*i - 7, где i = 1, 2, 10 или
a[i] = 20*i + 13, где i = 0, 1, 2, 9
б) здесь числа просто убывают от 17 до 1.
a[i+1] = a[i] - 1 - рекуррентная формула
a[i] = 18 - i, где i = 1, 2, 3, 17 или
a[i] = 17 - i, где i = 0, 1, 2, 16
какие из этих формул были использованы в программе, видно без объяснений.
Популярно: Информатика
-
marga2304200214.09.2021 00:51
-
Гогенцоллерн28.06.2023 13:03
-
кирилл212405.03.2020 19:51
-
ITyanI09.05.2023 02:39
-
mako01111115.05.2020 23:29
-
Logicsmile00724.06.2021 01:13
-
gamer222208.02.2022 21:09
-
alimbekoffniki22.12.2022 19:15
-
marinagridina3406.12.2022 16:51
-
маринапашко200010.01.2020 04:29