Отдаю все накопленный баллы, помогите решить , у меня есть два часа. Сам не могу, если не...

Question

Отдаю все накопленный баллы, помогите решить , у меня есть два часа. Сам не могу, если не напишу мне СМЭРТ. Составьте программу по заданному алгоритму.

---

Comments

На Паскале

Answer 1

var N, K, M: integer;

begin

readln(N);

K:=1;

M:=1;

while K<=N do</p>

begin

M:=M*K;

K:=K+1;

end;

writeln(M);

end;