rustam1509var x, s: real; begin read(x); for var i := 1 to 17 do begin s += (i*sqrt(x))/(x + i + 2); end; write(s); end.
1 votes Thanks 0
HIPM
Var x, sum: integer; begin sum := 0; write('Set x: '); read(x); for var k := 1 to 17 do sum += (k * \sqrt(x)) / (x + k + 2); write('Sum: ',sum); end.
Answers & Comments
begin
read(x);
for var i := 1 to 17 do begin
s += (i*sqrt(x))/(x + i + 2);
end;
write(s);
end.
x, sum: integer;
begin
sum := 0;
write('Set x: ');
read(x);
for var k := 1 to 17 do sum += (k * \sqrt(x)) / (x + k + 2);
write('Sum: ',sum);
end.