Информатика, опубликовано 2018-08-22 18:44:45 by Гость
Составить программу вычисления суммы квадратов чисел от 1 до n.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.