Предмет: Информатика, автор: lyubarets15

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

Ответы

Автор ответа: archery
0
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.
Автор ответа: archery
0
//PascalABC.NET 3.1 сборка 1200
Похожие вопросы