Question

ИНФОРМАТИКА!!! Вычислить значение N! (n - натуральное, цикл while)

Answer 1

Program asd;
USES crt;
var n,s,q: integer;
BEGIN
Clrscr;
Write('Vvedite n ');
Readln(n);
S:=1;
Q:=1;
while q<n do
begin
q:=q+1;
s:=s*q;
end;
writeln('Otvet: ',s);
Readln;
END.