Спаскале) составить программу табулирования функции заданной рекурентной формулой. f(0)=1; f(1)=2; f(n+2)=2*f(n+1)-n

Function f(n: integer): integer; begin   if n=0 then f : = 1   else if n=1 then f : = 2   else f : = 2*f(n-1)-n+2; end; var n: integer; begin    writeln('n': 5, 'f(n)': 10);   for n : = 0 to 20 do     writeln(n: 5, f(n): 10);   end.

Вязыке паскаль описатель типа integer требует выделить под каждую переменную или элемент массива количество памяти, необходимое для размещения чисел из диапазона , т.е. отвести не менее двух байт, что и выполнялось в ранних системах, таких как turbo pascal, созданных во времена дорогой оперативной памяти. в современных разработках может выделяться и большее количество байт, например, в pascalabc.net под переменную типа integer отводится 4 байта. описатель array [1..20] of integer требует отвести память под 20 элементов типа integer, следовательно, если говорить о минимально необходимом количестве байт, то ответом будет в) 20, 40. а для pascalabc.net ответ должен быть 20, 80.

// известно, что х кг шоколадных конфет стоит а рублей, // а y кг ирисок стоит в рублей. определить, сколько стоит 1 кг // шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок. var x,y,a,b: real; begin   writeln('введите массу шоколадных конфет');   readln (x);   writeln('введите сумму потраченную на покупку шоколадных конфет');   readln (a);   writeln('введите массу ирисок');   readln (y);   writeln('введите сумму потраченную на покупку ирисок');   readln (b);   writeln ('килограмм шоколадных конфет стоит ',(a/x): 0: 2,' рублей'); //(a/x): 0: 2 - округряем до сотых)   writeln ('килограмм ирисок стоит ',(b/y): 0: 2,' рублей');   writeln ('шоколадные конфеты дороже ирисок в ',(a/x)/(b/y): 0: 1,' раз'); // - округляем результат до десятых   end. //дана длина ребра куба а. найти его объем и площадь поверхности var a: real; begin   writeln ('введите длину ребра куба');   readln (a);   while a< 0 do       begin           writeln ('вы ввели не допустимое значение попробуйте еще раз');           writeln ('введите длину ребра куба');           readln (a);       end;   writeln ('площадь куба равна ',a*a*6);   writeln ('объем куба равен ',a*a*a); end.