Написать программу, Паскаль. Дано натуральное число N. Вычислить S = 1! + 2! +3! + ... + n! (n>=1) Решить через repeat (с постусловием)
Ответы на вопрос
Ответил Yak73
0
var S,f:longint; n,a:byte;
begin
s:=0;a:=1;f:=1;
readln(n);
repeat
f:=f*a;
s:=s+f;
inc(a);
until a>n;
writeln(s);
end.
Вроде так
begin
s:=0;a:=1;f:=1;
readln(n);
repeat
f:=f*a;
s:=s+f;
inc(a);
until a>n;
writeln(s);
end.
Вроде так
Новые вопросы
Математика,
6 лет назад
Математика,
6 лет назад
География,
10 лет назад
Химия,
10 лет назад
Химия,
10 лет назад