Напише программу для вычисления n!=1*2*3*...*n-1*n; n

July 2022 2 8 Report

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

F1nDeR var n,f,i:integer;
Begin
write('n = ');
readln(n);
f:=1; i:=1;
while i<n do
begin
i:=i+1;
f:=f*i;
end;
Writeln(n,'! = ',f);
End.

Пример:
n = 5
5! = 120

0 votes Thanks 0

duckmol спасибо огромное

F1nDeR Не за что.

duckmol а если через while?

F1nDeR Сейчас, одну минуту.

petyaGavrikov

Verified answer

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 votes Thanks 1

duckmol спасибо огромное

Answers & Comments

Verified answer

почему поволжский и уральский экономические районы часть объядиняют вместе?...

Составте программу для нахождения среднего арифметического двухзначных чисел, кр...

Напишите программу, выводящую степень числа 2 от 1 до N (с помощью цикла с преду...

написать программу, которая находит три самых больших элементов массива, и вмест...

написать программу, подсчитывающую среднее геометрическое всех элементов массива...

рекомендуемые вопросы

Helpful Links

Helpful Social