Предмет: Информатика, автор: Alex4k

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

Ответы

Автор ответа: ilya777tm

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

ilya777tm: 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.

Автор ответа: asoiiu

program SummaKv;

var
n, i: integer;

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

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

Приложения: