Если число кратно 7 и 9 одновременно, то оно кратно и их произведению, т.е. 63.
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018 Внимание! Если программа не работает, обновите версию!
begin var (a,b):=ReadInteger2('Введите границы интервала'); if a>b then Swap(a,b); var m:=a mod 63; if m>0 then a:=a+63-m else if m<0 then a:=a-m; var s:=Range(a,b,63); Writeln('На интервале для чисел, кратных 7 и 9 одновременно:'); Writeln('Количество ',s.Count,', сумма ',s.Sum,', произведение ', s.Aggregate(BigInteger(1),(p,q)->p*q)) end.
Пример Введите границы интервала 613 2100 На интервале для чисел, кратных 7 и 9 одновременно: Количество 24, сумма 32508, произведение 365675480699261550432828460140720056759879856012024400651039614959616000000
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите границы интервала');
if a>b then Swap(a,b);
var m:=a mod 63;
if m>0 then a:=a+63-m
else if m<0 then a:=a-m;
var s:=Range(a,b,63);
Writeln('На интервале для чисел, кратных 7 и 9 одновременно:');
Writeln('Количество ',s.Count,', сумма ',s.Sum,', произведение ',
s.Aggregate(BigInteger(1),(p,q)->p*q))
end.
Пример
Введите границы интервала 613 2100
На интервале для чисел, кратных 7 и 9 одновременно:
Количество 24, сумма 32508, произведение 365675480699261550432828460140720056759879856012024400651039614959616000000