Члены математического кружка ознакомились с понятием факториал числа -добуток натуральных...

Question

Члены математического кружка ознакомились с понятием факториал числа -добуток натуральных чисел от 1 до данного числа: n! = 1 * 2 * 3 ... n. сделайте программу по которой можно будет сравнить значение факториала числа и его квадрата ПЛИЗ ПОМОГИТЕ

Comments

ПОЖАЛУЙСТА ПОМОГИТЕ

Answer 1

Var n,i,f:integer;
begin
write('n = ');
readln(n);
f:=1;
for i:=1 to n do f:=f*i;
writeln('f = ',f,' ',n,'^2 = ',n*n);
if f>n*n
 then write(f,'>',n*n)
 else if fend.

Пример:
n = 5
f = 120 5^2 = 25
120>25

Answer 2

//PascalABC.Net 3.2
function fact(n: integer):biginteger;
begin
var prod:biginteger:=1;
for var i:=1 to n do prod*=i;
result:=prod;
end;

begin
var x:=readinteger ('Введите число: ');
if fact(x)=sqr(x) then write ('Квадрат и факториал числа равны')
else if fact(x)>sqr(x) then write ('Факториал>квадрата на ', fact(x)-sqr(x))
else write ('Квадрат>факториала на ', sqr(x)-fact(x));
end.