Составить программу, вычисляющую сумму квадратов всех чисел от 1 до 100. (В Pascal)
Ответы на вопрос
Ответил sinbad7
0
var
i: integer;
s: real;
begin
s := 0;
for i := 1 to 100 do
s := s + i * i;
writeln(s:7:0);
end.
Новые вопросы
Русский язык,
6 лет назад
Русский язык,
6 лет назад
Геометрия,
10 лет назад
Математика,
10 лет назад
Физика,
10 лет назад