Составить программу вычисления суммы квадратов чисел от 1 до n.

Question

Информатика

Савина

4 января, 17:11

Составить программу вычисления суммы квадратов чисел от 1 до n.

+1

Ответы (1)

Знаете ответ на вопрос?

Наля · Answer 1

Var i, x, n:integer; begini:=1; writeln ('Vvedit N') ; readln (n) ; if n mod 2 = 0 then beginrepeatx:=i*i+x; i:=i+1; until i>n; endelse beginrepeatx:=i*i*i+x; i:=i+1; until i>n; end; writeln (x) ; readln; end.