Это задача на вычисление суммы факториалов от 1 до 15, т.е. 1!+2!+3!+...n! Я её сделал, но препод гад чтоб поставить мне зачет просит чтобы я ещё и вот саму программу begin for a:=1 to n do b:=b+fact(a); write(b); end. тоже убрал в функцию и сделал рекурсивной... Я ваще не понимаю чё он от меня хочет! Если кто хнает помогите плиз!
Uses crt;
Const n=15;
var a,b:longint;
function fact(a:longint):longint; begin if a=0 then fact:=1 else fact:=a*fact(a-1); end;
begin for a:=1 to n do b:=b+fact(a); write(b); end.
