задача

[laychan]

1) вычислить факториал некоторого числа p;
2) факториал некоторого числа равен p, найдите это число;
3) определить, является ли заданное число степенью числа 3;
4) вычислить y=1! +2! +3! +.....+n!
5) вычислить x^n , где n - целое положительное число;
6) вычислить значения x^1, x^2, x^3,....,x^n.

работа выполняется на Турбо Паскале!

[grom333]

1.

var
b,n,i:integer;
s:real;
begin
writeln('vvedite chislo');
readln(n);
s:=1;
b:=1;
for i:=1 to n do
begin
b:=b*i;
s:=s+(1/1*b);
end;
write(s:5:3);
readln;
end.

2.

var
i:integer;
x,n:integer;
s:real;
begin
writeln('vvedite chislo vozvodimoe  v stepen');
readln(x);
writeln('vvedite stepen');
readln(n);
for i:=1 to n do
begin
s:=exp(x*ln(i));
writeln(s:0:0);
end;
readln;
end.

5.

var
x,n:integer;
s:real;
begin
writeln('wwedite stepen i chislo');
readln(n,x);
s:=exp(x*ln(n));
writeln(s:0:0);
readln;
end.

[grom333]

1.

var
b,n,i:integer;
s:real;
begin
writeln('vvedite chislo');
readln(n);
s:=1;
b:=1;
for i:=1 to n do
begin
b:=b*i;
s:=s+(1/1*b);
end;
write(s:5:3);
readln;
end.

[TinMan]

гром333, поясни, плз, что это у тебя тут такое.. Что ты хотел сказать вот этой строкой:

Сообщение от grom333

s:=s+(1/1*b);

Во-первых, тут считается просто сумма чисел (а не обратных значений, как ты думал). Во-вторых, в задаче №1 вообще нет деления..