Регистрация
Войти
Стать экспертом Правила
Информатика

Написать программу, которая для чисел в диапазоне от 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.

ОТВЕТЫ
  • uses School;
  • begin
  •  var (a, b) := ReadInteger2;
  • (a..b).Sum(x -> x.Divizors.Count).Print
  • end.
  1. Из скриншотов можно увидеть правильность выполнения поставленной задачи.
610
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам