Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years