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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!