Вычислить сумму ряда - Turbo Pascal (28950)

Формулировка задачи:

Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

Код к задаче: «Вычислить сумму ряда - Turbo Pascal (28950)»

textual
var S,d:real;
    i:integer;
begin
S:=0;
repeat
write('Введите d>=0 d=');
readln(d);
until d>=0;
for i:=2 to 15 do
S:=S+sqrt(i*d);
writeln(S:0:2);
end.

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ