Вопрос по информатике:
Вычислите для первых n элементов:
3+6+9+12+... и 3*6*9*12*...
(С полным решением!)
- 09.04.2018 11:02
- Информатика
- remove_red_eye 15545
- thumb_up 45
Ответы и объяснения 1
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var p:Biginteger:=1;
var s:integer:=0;
var n:=ReadInteger('Введите число');
for var i:=1 to n do begin
p:=p*3*i;
s:=s+3*i;
end;
Println('Сумма кратных 3 =',s,' Произведение =',p);
end.
Тестовое решение:
Введите число 20
Сумма кратных 3 = 630 Произведение = 8483004771271882804592640000
- 01.01.1970 00:00
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.