Безотлагательно ПОМОГИТЕ ПО ИНФОРМАТИКЕ !В диапазонк от а до в (
Безотлагательно ПОМОГИТЕ ПО ИНФОРМАТИКЕ !
В диапазонк от а до в ( а и в задаются с клавиатуры ) отыскать количество чисед , у которых данное колличеСтво делителей. Паскаль
PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программка не работает, обновите версию!
function ЧислоДелителей(Self: integer): integer;
extensionmethod;
begin
Result := 2; // на себя и на 1 число всегда делится
for var i := 2 to Self div 2 do
if Self mod i = 0 then Inc(Result)
end;
begin
var (НижняяГрапница, ВерхняяГраница) :=
ReadInteger2('Укажите границы диапазона:');
var ТребуетсяДелителей :=
ReadInteger('Укажите количество делителей:');
Range(НижняяГрапница, ВерхняяГраница)
.Where(t -gt; t.ЧислоДелителей = ТребуетсяДелителей).Count.Print
end.
Пример
Укажите границы спектра: 35 210
Укажите количество делителей: 10
6
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.