Программирование вычисления суммы и произведения
Программирование вычисления суммы и произведения
Гость
Ответ(ы) на вопрос:
ГостьProgram pr;
uses crt;
Var i, k:integer;
sum, p:real;
Begin
sum:=0;
p:=1;
for k:=1 to 5 do
Begin
sum:=sum+((k*k)/(k*k+3*k+5));
end;
for i:=1 to 4 do
Begin
p:=p*((power(5,i))/(power(3,i)+power(2,i+2)));
end;
Writeln('Сумма = ', sum);
Writeln('Произведение = ', p);
readln();
end.
Не нашли ответ?
Похожие вопросы