Составить программу , которая вычесляет произведение сумму первых 137 натуральных чесел (параметром цикла является переменная а, а произведение хранится в переменой p) решите я на уроке !
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var p:=Range(1,137); Writeln('Сумма чисел от 1 до 137 равна ',p.Sum); Writeln('Их произведение равно ',p.Aggregate(BigInteger(1),(x,y)->x*y)) end.
Результат Сумма чисел от 1 до 137 равна 9453 Их произведение равно 5012888748274991661034926292112253883237205694398754483388962668892510972746226260034675717797072343372830591567227826571884373881355612819314826377917827129740056802397016509378163883274055583382110208000000000000000000000000000000000
girra
04.02.2021
Var a,p:integer; begin p:=1; for a:=1 to 137 do p:=p*a; writeln(p); end.
Natali-0706
04.02.2021
Basic: DIM tetradCount as INTEGER, oblojCount as INTEGER, price1 AS INTEGER, price2 AS INTEGER CLS INPUT "Введите кол-во тетрадей:"; tetradCount INPUT "Введите кол-во обложек:"; oblojCount
находиться во время перемены в компьютерном классе без разрешения старшего (преподавателя); включать без разрешения оборудование; трогать разъемы соединительных кабелей и проводов(возможно поражение электрическим током); прикасаться к питающим проводам и устройствам заземления; прикасаться к экрану и к тыльной стороне монитора, клавиатуры; включать и выключать аппаратуру без указания преподавателя; работать в верхней одежде и влажными руками; прыгать, бегать (пылить); класть диски, книги, тетради и другие предметы на монитор и клавиатуру; устанавливать или копировать программы с дискет, дисков и флеш-носителей на компьютер, предварительно не проверив их антивирусом; При появлении запаха гари немедленно прекратите работу, выключите аппаратуру и сообщите об этом преподавателю.
Во время работы:
строго выполняйте все указанные выше правила, а также текущие указания преподавателя; следите за исправностью аппаратуры и немедленно прекращайте работу при появлении необычного звука или самопроизвольного отключения аппаратуры; легко и быстро нажимайте на клавиши, не допуская резких ударов; не пользуйтесь клавиатурой и мышью, если не включен компьютер; работайте на клавиатуре чистыми руками; никогда не пытайтесь самостоятельно устранить неисправность в работе аппаратуры; не вставайте со своих рабочих мест, когда в кабинет входят посетители.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составить программу , которая вычесляет произведение сумму первых 137 натуральных чесел (параметром цикла является переменная а, а произведение хранится в переменой p) решите я на уроке !
// Внимание! Если программа не работает, обновите версию!
begin
var p:=Range(1,137);
Writeln('Сумма чисел от 1 до 137 равна ',p.Sum);
Writeln('Их произведение равно ',p.Aggregate(BigInteger(1),(x,y)->x*y))
end.
Результат
Сумма чисел от 1 до 137 равна 9453
Их произведение равно 5012888748274991661034926292112253883237205694398754483388962668892510972746226260034675717797072343372830591567227826571884373881355612819314826377917827129740056802397016509378163883274055583382110208000000000000000000000000000000000