Программирование / Лабораторные / ЭВТ-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.