Question

Вычислить сумму 1/3+1/5+1/8+1/13
в Delphi

Answer 1

var a,b,c,d,s:double;
begin
a := 1/3;
b := 1/5;
c := 1/8;
d := 1/13;
s := a + b + c + d;
write(s);
end.
ответ - 0.73525641025641