Вычислить с помощью оператора оператора цикла сумму и произведение последовательности чисел: 1/3; 1/5; 1/7; ... 1/23

Question

Информатика

Таюся

19 марта, 10:14

Вычислить с помощью оператора оператора цикла сумму и произведение последовательности чисел: 1/3; 1/5; 1/7; ... 1/23

+2

Ответы (1)

Знаете ответ на вопрос?

Саверий · Answer 1

Var

i, n:integer;

s, p:real;

begin

s:=0; p:=1; n:=3;

for i:=1 to 11 do

begin

s:=s+1/n;

p:=p*1/n;

n:=n+2;

end;

writeln ('summa: ', s) ;

writeln ('proizvedenie: ', p) ;

end.