Вычислить с помощью оператора оператора цикла сумму и произведение последовательности чисел: 1/3; 1/5; 1/7;...1/23
Вычислить с помощью оператора оператора цикла сумму и произведение последовательности чисел: 1/3; 1/5; 1/7;...1/23
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы