Question

Помогите, прошу Вычислите сумму ряда чисел 1/1*1+1/2*2+1/3*3+...+1/n*n, где n определяется пользователем

Answer 1

1. По условию которое записано у вас

(1/1*1+1/2*2+1/3*3+...+1/n*n, ) В этом случае программа будет бессмысленной

program raf105;

var n,i:integer;

sum:real;

begin

write('Введите n: ');

readln(n);

for i:=1 to n do

 sum += 1/i*i;

writeln('Сумма: ',sum);

end.

2. По условию которое могло быть на самом деле

(1/(1*1)+1/(2*2)+1/(3*3)+...+1/(n*n), )

program raf105;

var n,i:integer;

sum:real;

begin

write('Введите n: ');

readln(n);

for i:=1 to n do

 sum += 1/(i*i);

writeln('Сумма: ',sum);

end.

Язык программирования PascalABC