Дано целое число N (> 0). Найти квадрат данного числа, используя для его вычисления следующую формулу: N2 = 1 + 3 + 5 + ... + (2·N - 1). После добавления к сумме каждого слагаемого выводить текущее значение суммы (в результате будут выведены квадраты всех целых чисел от 1 до N).

Question

Нинона

25 декабря, 01:15

+1

Ответы (1)

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

Прокофий · Answer 1

Var

n2, i, n: integer;

begin

readln (n) ;

n2 : = 0;

for i : = 1 to n do

begin

n2 : = n2 + 2 * i - 1;

writeln (i, ' ', n2) ;

end;

end.