Информатика, опубликовано 2018-08-22 20:40:14 by Гость
используя цикл с параметром вычислить n!
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на