profile
Опубликовано 4 года назад по предмету Информатика от 9Alex9

по заданному целому неотрицательному значению n вычислить n!=1*2*3*... n. Учтите, что по определению 0!=1.

  1. Ответ
    Ответ дан GetIT

    uses crt;

    var

           int n,fact,i;

    begin

    clrscr;

    writeLn("Enter size array:");

    read(n);

    if (n>1)

    for i:= 1 to n do

    fact:=fact*i;

    else

    fact:=1;

    writeln;

    write("Fact=",fact);

    readkey;

    end.