Реьят напишите программу вычисления выражения: s=1! +2! +3! ++n! используйте функцию вычисления факториала

Var n,i,s:integer;
function fact(k:integer):integer;
var j,f:integer;
begin
f:=1;
for j:=1 to k do f:=f*j;
fact:=f;
end;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do s:=s+fact(i);
writeln('s=',s);
end.

Пример:
n=5
s=153

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
function F(n:Integer):integer:=Range(1,n).Aggregate(1,(i,j)->i*j);

begin
  Writeln(Range(1,ReadInteger('n=')).Select(x->F(x)).Sum);
end.

Тестовые решения:
n= 5
153

n= 10
4037913

Задание 1:

var a,b,c,p,s:real;  

begin  

write('Введите a: '); readln(a);  

write('Введите b: '); readln(b);  

write('Введите c: '); readln(c);  

p:=(a+b+c)/2;  

s:=sqrt(p*((p-a)*(p-b)*(p-c)));  

writeln('Площадь: ',s);  

end.

Задание 2:

а)

var a:real;  

begin  

a:=1/(1+(1/(2+(1/(2+(3/5;  

writeln(a);  

end.

ответ: 0.704545454545454

б)  

var  

a,b,c,d:real;  

begin  

write('Введите a: '); readln(a);  

write('Введите b: '); readln(b);  

write('Введите c: '); readln(c);  

d:=(((-b)+sqrt(sqr(b)-4*a*c))/2*a);  

writeln(d);  

end.

Не понятно, в каком редакторе, но один из вариантов

а) Левая мышка и тянуть, будет выделен голубым цветом.

б) Ctrl-C - Скопировать в буфер.

в) В нужном месте(отметить мышкой) Ctrl-V - туда скопируется из буфера.

г) Левой мышкой отметить, Del.

 

Повторюсь, это один из вариантов. Для разных редакторов по-разному, но, в основном, так. в Word ищи в меню  вверху, там русскими буквами твои действия написаны, поэтому просто отмечаешь, выбираешь в меню нужное действие, ... и всё!

 

Вообще чень странный вопрос(задача), абсолютно неконкретный, типа, пойди туда, не знаю, куда, принеси то, не знаю, что

Успехов!