Объяснение:
program prog;
var i,k:integer;
S:double;
begin
i:=1; k:=3; S:=0;
while (i<=49) and (k<=51) do begin
S:=S+i/k;
i:=i+2;
k:=k+2;
end;
writeln ('Сумма', S);
end.
Объяснение:
program prog;
var i,k:integer;
S:double;
begin
i:=1; k:=3; S:=0;
while (i<=49) and (k<=51) do begin
S:=S+i/k;
i:=i+2;
k:=k+2;
end;
writeln ('Сумма', S);
end.