Question

Вычислить значение N! ( N - натуральное, цикл Repeat... Until )

Answer 1

var i,f,N: integer;
begin readln(N);
i:=0;
f:=1;
repeat
i:=i+1;
f:=f*i;
until i<N;
write(f);
end.