Найти сумму и произведение первых а последовательных чисел
Найти сумму и произведение первых а последовательных чисел
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
begin
var a:=ReadInteger('a=');
var s:=0;
var p:biginteger:=1;
for var i:=1 to a do begin s+=i; p*=i end;
Writeln('Сумма ',s,', произведение ',p)
end.
Пример
a= 30
Сумма 465, произведение 265252859812191058636308480000000
Не нашли ответ?
Похожие вопросы