Question

Написать программу, которая для чисел в диапазоне от A до B определяла количество их делителей. К при- меру, A= 10, B = 15. Делители для числа 10 — 1 2 5 10; Делители для числа 11 — 1 11; Делители для числа 12 — 1 2 3 4 6 12; Делители для числа 13 — 1 13; Делители для числа 14 — 1 2 7 14; Делители для числа 15 — 1 3 5 15.

Answer 1

PascalABC.NET:

• uses School;
• begin
•  var (a, b) := ReadInteger2;
• (a..b).Sum(x -> x.Divizors.Count).Print
• end.