Program Pr1; uses crt; var s,b:real; i,a,n:integer; Begin clrscr; writeln('Vvedite N'); readln(n); s:=0; for i:=1 to n do begin b:=1; for a:=1 to i do b:=b*a; s:=s+b; end; writeln(s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
