Составить программу вычисления суммы квадратов - вопрос №12736101 от Бегемотик397 05.05.2020 02:59

Question

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

Бегемотик397 · Answer

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....