Найти 1!+2!+…+n!. Используйте функцию нахождения факториала, т.к подается на вхо...

July 2022 1 22 Report

Найти 1!+2!+…+n!. Используйте функцию нахождения факториала, т.к подается на вход и получается результат.

Answers & Comments

Verified answer

var
N, J: Word;
sum: Integer;

function factorial(N : word) : longint;
var
i : integer;
f : longint;
begin
f := 1;
for i := 2 to n do
f := f * i;
factorial := f
end;

begin
write('Введите N: ');
readLn(N);
sum := 0;
for J := 1 to N do Inc(Sum, Factorial(J));
write('Сумма равна: ');
writeLn(Sum);
end.

1 votes Thanks 0

Answers & Comments

Verified answer

sostavit programmu dlya togo chtoby kompyuter ispolzuya generator sluchajnyh chisad9f42ee787e69e84ff5a9a809cbe7dc 84567

sostavit programmu dlya togo chtoby kompyuter ispolzuya generator sluchajnyh chisdd5df86b8c469ca6f2dd455c9f5fd28b 68703

vychislit summuraznostproizvedenie i chastnoe kompleksnyh chiselopredelit znabf40ef7e447b54484cbd652cbb9140f3 81283

postroenie logicheskih shem

srochnopozhalujstaa2a96609bd92ca08f6813b7a1cfd9430 51078

okruglit 0354 do desyatyh 545 do edinic 15209 5437 514x0813

srochno pomogite pozhalujsta6e5b8472f30347c67caf8e262d23e6a5 5722

2 i srednee geometricheskoe dvuh polozhitelnyh chisel x i y x i y vhodnye amea

opisat funkciyu signx celogo tipa vozvrashayushuyu dlya veshestvennogo chisla x sled

preobrazovat datu v chislovoj format uslovie i cel zadachi polzovatel vvodit

рекомендуемые вопросы

Helpful Links

Helpful Social