Паскаль:
Вычислить сумму :
1/3+3/5+5/7+...+49/51

kino2011 kino2011    3   28.12.2020 11:01    0

Ответы
svetacok svetacok  27.01.2021 11:02

Объяснение:

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика