Построить блок-схему и написать программу
1. Вычислить S=1+2+3+4+…+N
2. Для данного N составить алгоритм вычисления факториала N!=1*2*3*…*N
- 1. program z;var n,i:integer; s:real;beginwriteln(‘Введите число n’); readln(n);for i:=1 to n dobegins:= (n*(n+1))/2; end;writeln(s); end.2. program z2;var s,i,n:integer; begin writeln(‘Введите число n ‘); readln (n);
s:=1;
for i:=1 to n do s:=s*i;
write(s); end.