Question

ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ СРОЧНО Напишите программу, которая определяет произведение ряда n!=1•2•3•…•n, где n – натуральное число. В программе используйте цикл с предусловием.​

Answer 1

Ответ:

var

   n, f: integer;

begin

   readln(n)

while n>0:

       f*:=n

       n-=f-1

end;