Предмет: Информатика,
автор: danilpribytkin
Вывод на экран чисел кратных 13. От 10 до 99 их суммы и произведения. (Паскаль)
Ответы
Автор ответа:
0
Первое число, кратное 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
// 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
Похожие вопросы
Предмет: Английский язык,
автор: mirzaevo
Предмет: Русский язык,
автор: aleksejtataris2008
Предмет: Химия,
автор: polinarabova34
Предмет: Биология,
автор: Аноним
Предмет: Физика,
автор: yusupovamadink