Ответы
Ответ дал:
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
Вас заинтересует
2 года назад
7 лет назад
7 лет назад
10 лет назад