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

xDVadiKSlivE xDVadiKSlivE    3   29.07.2019 10:40    62

Ответы
lionlioness lionlioness  27.09.2020 11:28
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика