Предмет: Информатика,
автор: lyubarets15
найти сумму чисел от 1 до N, делящихся на 5 и меньших а.
Паскаль
Ответы
Автор ответа:
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.
var a := ReadInteger('a =');
PrintLn(
Range(1, ReadInteger('n ='))
.Where(x -> (x mod 5 = 0) and (x < a))
.Aggregate((s, x)-> s + x)
);
end.
Автор ответа:
0
//PascalABC.NET 3.1 сборка 1200
Похожие вопросы
Предмет: Математика,
автор: darki01brawl
Предмет: Қазақ тiлi,
автор: dusubalidaria
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Литература,
автор: tyman20000