Байков
6 год назад
Вывод на экран чисел кратных 13. От 10 до 99 их суммы и произведения. (Паскаль)
ОТВЕТЫ
Matfeevich
Jul 21, 2019
Первое число, кратное 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)-gt;m*n))
end.
Результат
13 26 39 52 65 78 91
S=364, П=316252525680
// 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)-gt;m*n))
end.
Результат
13 26 39 52 65 78 91
S=364, П=316252525680
143
