Find the arithmetic mean of the squares of all integers from 1 to 100. Program in pascal.
| August 4, 2021 | education
program zz1;
var r, i, k: integer; // set variables of integer type
begin
for i: = 1 to 100 do // organize a loop in which we iterate over all numbers from one to one hundred
begin r: = r + i * i; k: = k + 1; end; // add the square of the number to the sum and count the amount
write (‘the arithmetic mean of the squares of all integers from 1 to 100 =’, r / k); // display the answer
end.
One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.
