Что мне нужно добавить в код? вычислить сумму корней квадратных первых n чисел натурального ряда. входные данные: во входном потоке записано единственное целое число n (0 < n < = 100). выходные данные: в выходной поток вывести единственное вещественное число с точностью три знака после запятой. пример входного файла (input.txt): 43 пример выходного файла (output.txt): 191.057 program; var n,s,i: integer; begin read(n); s: =0; for i: =1 to n do begin read; s: =s+i; write; end; write(s: 0: 3); end.
var n,i:integer;
s:real;
begin
read(n);
for i:=1 to n do
begin
read;
s:=s+sqrt(i);
end;
writeln(s:0:3);
end.