Створіть проект, у якому потрібно сформувати табличну величину з 8 цілих чисел, що знаходяться в рядках багаторядкового текстового поля, і зобразити значення кожного елемента кругом відповідного радіуса. Збережіть проект у папці з іменем Завдання 6.3.2, створеній у вашій папці.
x(2)=x(1)+1,
x(3)=x(2)+2,
...
x(n)=x(n-1)+n-1
В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp.
Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp новым значением.
var i,k,kp:integer;
begin
kp:=1;
for i:=1 to 10 do begin
k:=kp+i-1;
kp:=k;
writeln(k:5, k*k:6, k*k*k:8);
end;
end.