Nenanerot
6 год назад
Посчитать сумму и произведение натуральных чисел от 100 до 123( операции программирования паскаль.Это просто тема)
ОТВЕТЫ
Kuzma
Jul 21, 2019
// PascalABC.NET 3.2, сборка 1346 от 25.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
Writeln(S=,Range(100,123).Sum);
Writeln(П=,Range(100,123).Aggregate(Biginteger(1),(x,y)-gt;x*y))
end.
Результат
S=2676
П=13014890091970928141156779500966563174744064000000
// Внимание! Если программа не работает, обновите её версию!
begin
Writeln(S=,Range(100,123).Sum);
Writeln(П=,Range(100,123).Aggregate(Biginteger(1),(x,y)-gt;x*y))
end.
Результат
S=2676
П=13014890091970928141156779500966563174744064000000
18
Смежные вопросы:
