Question

Помогите написать программы в Паскале

Answer 1

1.var a,b:integer;<br />begin<br />readln(a);<br />b:=0;<br />for var i:=1 to a then b:=b+sqr(i);<br />write(b);<br />2.<br />

Answer 2

В задаче 1 надо найти сумму КВАДРАТОВ чисел