Question

для заданного натурального числа n написать программу вычисления выражения s=√1+√2+√3+√4+...+√n подстановка задачи i=1..n,s=0,s=s+√i

Answer 1

Uses Crt;
var
i,n : integer;
S:Real;
Begin
ClrScr;
Write('Input N: ');
ReadLn(n);
s:=0;
for i:=1 to n do
 s:=s+Sqrt(i);
Write(S);
End.