profile
Опубликовано 6 лет назад по предмету Информатика от Remica

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

  1. Ответ
    Ответ дан 333224ww3232
    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.

Самые новые вопросы