Информатика, опубликовано 2018-08-22 23:10:22 by Гость
Вычислите для первых n элементов: 3+6+9+12+... и 3*6*9*12*... (С полным решением!)
Ответ оставил Гость
//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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на