Question

Найти сумму чисел ряда каждый элемент которого определяется по
формуле (i+5)/i и i изменяется от 1 до 20 с шагом 0.4
Показать решение(по Pascal)

Answer 1

program stach;
var i,s:real;
begin
i:=1;
while i<=20 do begin
s:=s+((i+5)/i);
i:=i+0.4;
end;
writeln('s=',s);
end.