Найти сумму чисел от 1 до N, делящихся на 5 и меньших а. Паскаль
Найти сумму чисел от 1 до N, делящихся на 5 и меньших а.
Паскаль
Гость
Ответ(ы) на вопрос:
Гостьbegin
var a := ReadInteger('a =');
PrintLn(
Range(1, ReadInteger('n ='))
.Where(x -> (x mod 5 = 0) and (x < a))
.Aggregate((s, x)-> s + x)
);
end.
Не нашли ответ?
Похожие вопросы