Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите написать на Паскаль
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.