Вывод ** экран чисел кратных 13. От 10 до 99 их суммы и произведения. (Паскаль)

Question

Вывод на экран чисел кратных 13. От 10 до 99 их суммы и произведения. (Паскаль)

Answer 1

Первое число, кратное 13, из диапазона [10;99] - это 13. Остальные будут идти с шагом 13, т.е. получим последовательность 13, 26, 39, ...

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=Range(13,99,13); a.Println;
  Writeln('S=',a.Sum,', П=',a.Aggregate(Biginteger(1),(m,n)->m*n))
end.

Результат
13 26 39 52 65 78 91
S=364, П=316252525680