Напиши программу. дано целое число n (n > 0). найти сумму (n + 1)^2 + (n + 2)^2 + … + (2•n)^2 входные данные: ввести целое число n (1< =n< =10). выходные данные: вывести сумму (n + 1)^2 + (n + 2)^2 + … + (2•n)^2 (получим целое число.)

lsllalap lsllalap    3   26.08.2019 05:10    1

Ответы
mashuljka33 mashuljka33  05.10.2020 20:22
Var
    i, n: integer;
    s: longint;

begin
    readln(n);
    for i := 1 to n do
        s := s + (n + i) * (n + i);
    
    writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика