Составьте программу для вычисления суммы ряда .s=2/3 n + 2/3 n^2 + 2/3 *n^n. с функцией или процедурой

279

464

Посмотреть ответы 2

Ответы на вопрос:

ещКеРе11

Информатика

4,4(83 оценок)

Program test; function s(n,a: integer) : real; var i,p: integer; begin p: =1; if n> 1 then begin for i: =1 to n do p: =p*a; s: =p; end; end; function sum(n: integer) : real; var i: integer; sum1: real; begin for i: =1 to n do begin sum1: =sum1+(2/3)*s(i,n); end; sum: =sum1; end; var n: integer; begin write('введите количество чисел '); readln(n); writeln(sum(n)); end.