Задание:
Помогите плиз к понедельнику решить эту мега сложную задачу) Дано целое число K определите среднее арифметическое делителей данного числаPASCAL
Решение:
var k, i, n: integer; //k — данное число, n — количество делителей числа k s: real; //s — сумма делителей числа k begin n: =0; //Обнуляем счетчики s: =0; writeln ('Введите целое число'); readln (k); //Вводим число k for i: =1 to k do {Проверяем какие числа от 1 до k являются делителями числа k} if k mod i=0 then {Если k делится без остатка на i, то прибавляем число i к сумме и прибавляем к счетчику 1} begin n: =n+1; s: =s+i; end; writeln ('Среднее арифметическое делителей числа ', k, ' равно: ', s / n: 0:5); {Выводим среднее арифметическое делителей с округлением до 5 знаков после запятой}end.
Знаете другой ответ?