Question

Помогите со 2-ЫМ, нужна программа в Паскале

Answer 1

var

   i, n: integer;

   index: real;

 

begin

   write ('Количество знаков: ');

   readln (n);

 

   for i := 1 to n do

       index := index + sqrt(i);

  write(index);

 

readln

end.