Обусловьте сумму трехзначных чисел кратных 7

Определите сумму трехзначных чисел кратных 7

Задать свой вопрос
1 ответ

begin

 Range(100, 999).Where(x -gt; x mod 7 = 0).Aggregate(0, (s, x)-gt; s + x).Println;

end.

Татьяна Явхимчук
PascalABC.NET
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт