Задать вопрос
17 сентября, 07:18

Напише программу для вычисления n!=1*2*3 * ... * n-1*n; n<=10 c помощию цикла while

+5
Ответы (2)
  1. 17 сентября, 09:13
    0
    Program ABC;

    var i, N, S:integer;

    Begin

    Read (N) ;

    S:=1;

    For i:=1 to N do

    Begin

    S:=S*i;

    End;

    Writeln (S) ;

    End.

    Подставляешь n - это будет твое число под факториалом.

    Программа выводит ответ.
  2. 17 сентября, 10:35
    0
    var n, f, i:integer;

    Begin

    write ('n = ') ;

    readln (n) ;

    f:=1; i:=1;

    while i
    begin

    i:=i+1;

    f:=f*i;

    end;

    Writeln (n,'! = ', f) ;

    End.

    Пример:

    n = 5

    5! = 120
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Напише программу для вычисления n!=1*2*3 * ... * n-1*n; n ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы