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

витно витно    3   08.06.2019 09:30    1

Ответы
Фиаско1337 Фиаско1337  07.07.2020 16:00
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы