Ответы
Ответ дал:
0
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
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад