Напиши программу ** языке Паскаль и выведи ответ ** экран. Вычислить n!, если значение...

Question

Напиши программу на языке Паскаль и выведи ответ на экран. Вычислить n!, если значение n пользователь вводит с клавиатуры. Если n=0, то на экране выводится n!= .

Answer 1

Ответ:

program factorial;

var

 n, i, s: integer;

begin

writeln('введите N');

 read(n);

 if (n=0) then

 begin

 writeln('n!=')

 end

 else

 begin

 s := 1;

 for i := 1 to n do

   s := s * i;

 writeln('Факториал равен ',s);

 end;

end.

Объяснение:

Answer 2

Ответ:

program Factorial;

var n, f, i: integer;

begin

f:=1;

wtiteln (‘введите n’);

readln (n);

if n=0 then writeln (‘n!=1’)

else begin

for i:=1 to n do

f:=f*i;

writeln (‘n!= ‘, f);

end;

end.