Pascal abc, дано целое число n ( 0). найти сумму n2 - вопрос №0212225141616 от maritsumie 22.03.2023 18:03

Question

Информатика: Pascal abc, дано целое число n ( 0). найти сумму n2 + (n + 1)2 + (n + 2)2 + (целое число). решить через repeat

maritsumie · Answer

Var  n, i, s: integer;begin  readln(n);  s := 2 * n;   i := 1;  repeat     s := s + 2 * (n + i);    i := i + 1;  until i n;  writeln(s);end....

Pascal abc, дано целое число n (> 0). найти сумму n2 + (n + 1)2 + (n + 2)2 + (целое число). решить через repeat