Напиши программу. дано целое число n (n 0). найти - вопрос №7273536012 от oliver6no 19.05.2023 14:03

Question

Информатика: Напиши программу. дано целое число 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 (получим целое число.)

oliver6no · Answer

Var    i, n: integer;    s: longint;begin    readln(n);    for i := 1 to n do        s := s + (n + i) * (n + i);        writeln(s);end....