Программирование / Лабораторные / ЭВТ-1-Паскаль / LABA4_3

program GSA; {‚лзЁб«Ёвм ¤«п n б«®Ј Ґ¬ле: 1*2+3*4*5+6*7*8*9+ ... }
uses crt;
var i,t:longint; { ‚бЇ®¬®Ј вҐ«м­лҐ ЇҐаҐ¬Ґ­­лҐ }
j:longint; { Љ®«ЁзҐбвў® жЁда ў ЈагЇЇҐ Їа®Ё§ўҐ¤Ґ­Ё© }
k:longint; { ’ҐЄгй п жЁда  ў ЈагЇЇҐ }
n:integer; { Ќ®¬Ґа ЈагЇЇл }
sj:longint; { Џа®Ё§ўҐ¤Ґ­ЁҐ ®¤­®© ЈагЇЇл }
s:longint; { ‘㬬  n б«®Ј Ґ¬ле }
BEGIN
clrscr;
textcolor(red);
writeln(' ‚лзЁб«Ёвм ¤«п n б«®Ј Ґ¬ле: 1*2+3*4*5+6*7*8*9+ ... ');
textcolor(white);
write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® б«®Ј Ґ¬ле n= ');
readln(n);
j:=1;
k:=1;
s:=0;
for i:=1 to n do begin
j:=j+1;
sj:=1;
for t:=1 to j do begin
sj:=sj*k;
k:=k+1;
end;
s:=s+sj;
end;
writeln('ђҐ§г«мв в = ',s);
readln;
END.