Question

Программирование вычисления суммы и произведения

Answer 1

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.