Pascal abc, дано целое число n ( 0). найти сумму - вопрос №5142293021222 от Just0a0reader 19.09.2021 13:59

Question

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

Just0a0reader · 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