Задача: Факториал числа представляет собой произведение всех натуральных чисел от 1 до этого числа включительно.

+ 0 -

Murzik24

03 июня 2014 г., 17:26:04 (9 лет назад)

uses crt;var f:real;
    x,n:integer;
begin
     f:=1;
     write('N='); readln(N);
     if N<0 then writeln('EROOR!') else
     if N=0 then writeln('N!=',1)

+ 0 -

пофигисты

03 июня 2014 г., 18:25:58 (9 лет назад)

1)readln(n);
if (n=0) then writeln('0!=1') else
if (n<0) then writeln('Определяется только для положительных чисел') else
begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!='s:0:0);
end;

2)function f(x:byte):real;
begin
if x=0 then f:=1
else f:=f(x-1)*x;
end;2
с помощью рекурсии, как видно

+ 0 -

алеся2015

03 июня 2014 г., 19:34:12 (9 лет назад)

Полагаю, что вопрос о больших числах?

+ 0 -

милотааа

03 июня 2014 г., 21:58:19 (9 лет назад)

он сам не знает, чего хочет

+ 0 -

клео8

03 июня 2014 г., 23:26:06 (9 лет назад)

числа идут о неимоверно больших числах

+ 0 -

Tolibov14

04 июня 2014 г., 0:19:34 (9 лет назад)

где нудно пользоваться строками

+ 0 -

Linochka88983476

04 июня 2014 г., 1:46:17 (9 лет назад)

нужно*