Var a,x,n: real;begin write('Введите n '); readln(r); a=0; x=1; while x<=n do begin a:=a+a*x; x:=x+1; end; writeln('summaRada', a);end. Эм... я знаю только Си, в школе был Пасrаль, вроде бы все верно, проверить не могу, т.к. проги нужной нет, но суть вроде передана
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
