Anaralv
6 год назад
Найти сумму и произведение первых а последовательных чисел
ОТВЕТЫ
Лонгинович
Jul 22, 2019
// 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
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
223
Смежные вопросы:
