27 февраля, 00:02

используя цикл с параметром вычислить n!

0
Ответы (1)
  1. 27 февраля, 00:11
    0
    Program Problem1; { Вычисление факториала числа n! }

    uses WinCrt;

    var

    n, f, i : longint;

    begin

    write ("Введите натуральное число ") ; readln (n) ;

    f : = 1;

    if n 0 then for i : = 1 to n do f : = f*i;

    writeln ("Факториал числа ", n, " равен ", f)

    end.

    также можно сделать так:

    Program Problem1a;

    uses WinCrt;

    var

    n, i, f : longint;

    begin

    write ("Введите натуральное число ") ; readln (n) ;

    f : = 1;

    if n 0 then for i : = n downto 1 do f : = f*i;

    writeln ("Факториал числа ", n, " равен ", f)

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «используя цикл с параметром вычислить n! ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы