Предмет: Информатика,
автор: Юлия1915
СОставить программу вычисления суммы 1!+2!+3!_...+n!(n<15)
Ответы
Автор ответа:
0
Ответа нет, значит будет Паскаль...
var
n,i,p,s:longint;
begin
Write('Введите значение n<15 -> ');
Readln(n);
p:=1; s:=0;
for i:=1 to n do
begin p:=p*i; s:=s+p end;
Writeln('Сумма факториалов равна ',s)
end.
Тестовое решение:
Введите значение n<15 -> 5
Сумма факториалов равна 153
var
n,i,p,s:longint;
begin
Write('Введите значение n<15 -> ');
Readln(n);
p:=1; s:=0;
for i:=1 to n do
begin p:=p*i; s:=s+p end;
Writeln('Сумма факториалов равна ',s)
end.
Тестовое решение:
Введите значение n<15 -> 5
Сумма факториалов равна 153
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Jjjjjjjssss
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: sz1224339
Предмет: Обществознание,
автор: Анастатару
Предмет: Алгебра,
автор: КООООТ