Есептеуіш техника буындары қалай аталады

Question

Информатика: Есептеуіш техника буындары қалай аталады

Насонка · Accepted Answer

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 -> t.числоделителей = требуетсяделителей).count.print

end.

пример укажите границы диапазона: 35 210 укажите количество делителей: 10 6

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