Question

Даю 45 балов! Срочно! напишите программу на паскале, которая: С клавиатуры вводится натуральное число N. Программа должна найти факториал этого числа (обозначается как N!) – произведение всех натуральных чисел от 1 до N. Пример: 5! = 1 * 2 * 3 * 4 * 5 = 120

Answer 1

Ответ:

program Programm;

var i,N,x:uint64;

begin

x:=1;

writeln('Введите число N');

readln(N);

for i := 1 to N do

begin

x:=x*i;

end;

writeln(x);

end.

Объяснение:

В var нужен uint для того чтобы вычислять большие числа;

Answer 2

program factorial;

var
N, i, f: integer;

begin
write('Введите число N: ');
readln(N);

f := 1; // начальное значение факториала

for i := 1 to N do
f := f * i; // умножаем текущее значение факториала на текущее число

writeln('Факториал числа ', N, ' равен ', f);
end.