Var sum,n:longint; begin writeln('n=? '); readln(n); sum:=0; // основной цикл for var i:=1 to n do sum:=sum+i*i; writeln('При n=',n,' сумма квадратов первых n чисел = ',sum); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
