Find the arithmetic mean of multiples of 5 between 50 and 100 and display them in descending order (Pascal)
| November 29, 2020 | education
Var
i, k, d: Integer;
Begin
for i: = 100 downto 50 do
if (i mod 5 = 0) then
begin
Writeln (i);
Inc (k);
d: = d + i;
end;
Writeln (‘Arithmetic mean:’, d div k);
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.
