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

Question

Информатика

Доня

12 мая, 15:46

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

+3

Ответы (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.