1!+2!+3!+...+n! нужно написать на Паскале,понять не могу
1!+2!+3!+...+n!
нужно написать на Паскале,понять не могу
Гость
Ответ(ы) на вопрос:
Гостьvar n: integer;
k,s,m: int64;
begin
write('n = '); readln(n);
k:=1; s:=0; m:=1;
repeat
m:=m*k;
s:=s+m;
k:=k+1;
until k>n;
writeln('сумма: ',s);
end.
n = 5
сумма: 153
Не нашли ответ?
Похожие вопросы