Ответы
Ответ дал:
0
program factorial;
function fact(n: integer): longint;
begin
if (n = 0) then fact := 1 else fact := n * fact(n - 1);
end;
var n: integer;
begin
for n := 0 to 16 do
writeln(n, '! = ', fact(n));
end.
Ответ дал:
0
var
n, fact: word; //fact - факториал числа
i: integer;
begin
fact:= 1; //Присваиваем начальное значение
writeln('Введите число n');
readln(n);
for i:= 1 to n do //Для i, равного от 1 до n умножаем значение fact на i
fact:= fact * i;
writeln(n, '! = ', fact);
end.
Отметь решение, как лучшее, плиз)
Вас заинтересует
1 год назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад