Написать программу, Паскаль. Дано натуральное число N. Вычислить S = 1! + 2! + 3! + ... + n! (n>=1) Решить через repeat (с постусловием)

Question

Иаким

4 апреля, 19:00

+4

Ответы (1)

Знаете ответ на вопрос?

Тонюха · Answer 1

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.

Вроде так