Найти сумму чисел от 1 до n, делящихся на 5 и меньших а. паскаль

exii exii    1   26.07.2019 18:00    0

Ответы
Tus1 Tus1  25.09.2020 01:17
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика