Программа в PascalABC.NET. Вычислить сумму квадратов чисел первой сотни.

Question

Программа в PascalABC.NET. Вычислить сумму квадратов чисел первой сотни.

Answer 1

Vara,s:integer;begins:=0;a:=1;while a<>100 do begins:=s+(a*a);write(s,',');a:=a+1;end;end.

Comments

var

a,s:integer; // где а - число, s - сумма
begin
s:=0;
a:=1;
while a<>100 do begin //выполняем пока не равно 100
s:=s+(a*a); //сумма + квадрат числа
write(s,','); // вывод через запятую
a:=a+1; // повышаем счётчик
end;
end.

Answer 2

Program SummaKv;

var
  n, i: integer;

begin
  n := 0;
  for i := 1 to 100 do
    n := n + sqr(i);
  writeln('Сумма квадратов первой сотни чисел = ', n);
end.

Здесь квадрат числа 100 так же включается в сумму.

---