Кпонедельнику решить эту мега сложную )дано целое число k определите среднее арифметическое делителей данного числа pascal

114

491

Посмотреть ответы 2

Ответы на вопрос:

SANastea

Информатика

4,7(28 оценок)

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.

hjr56

Информатика

4,7(96 оценок)

1623 жылы Вильгельм Шикард "Есептеуіш сағаттар" - төрт арифметикалық амалды орындай алатын механикалық калькуляторды ойлап тапты. Бұдан соң Блез Паскаль ("Паскалина", 1642 ж.) және Готфрид Вильгельм Лейбниц өз машиналарын жасап шығарды. 1820 жылы Charles Xavier Thomas төрт арифметикалық амалды орындай алатын механикалық калькуляторды жасап, саудаға шығарды.

Объяснение:

Сонымен қатар, Лейбниц қазіргі заманғы компьютерлердің негізі болып табылатын екілік санақ жүйесін де сипаттады. Бірақ, 1940-жылдарға дейінгі шыққан машиналардың басым бөлігі (Чарльз Бэббидждің машинасы және ЭНИАК) ондық жүйені қолданған болатын.