Информатика, опубликовано 2018-08-22 23:02:28 by Гость

Помогите написать на Паскаль 1)сумма квадратов от 1 до N S=1+4+9+...n^2

Ответ оставил Гость

Program programma;
Uses crt;

var n,s,i: integer;

Begin clrscr;
      write(Введите число N = );
      readln(n);
write(S=);
for i:=1 to n-1 do
    begin
    s:=s+sqr(i);
    write(sqr(i),+);
    end;
s:=s+sqr(n);
write(sqr(n),=, s);
End.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.