Помогите с 1 задачей 1)При заданном n вычислить n факториал

Question

Помогите с 1 задачей
1)При заданном n вычислить n факториал

Comments

Уже не решают))

---

а вкладки изменит нету чет а так я уже заметил

---

добавь я не проитв

---

=D

---

А ответ l2898 лучшим отметить забыл?=)))

---

ну я оба понял вме без разницы

---

мне*

Answer 1

Var
N,N1:integer;
Begin
N1:=1;
Write('N = ');ReadLn(N);
For N:= 2 to N do
 N1:=N1*N;
 WriteLn(N,'! = ',N1)
End.

Во вложении вариант для Pascal ABC.net

---

Скачать вложение Текст (TXT)

Answer 2

Var n,i: Integer;
f: LongInt;
begin 
writeln('vvedite n=');
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln('faktorial=',f);
readln;
end.