Вычисление сумм и произведений

[Kolyanich]

С помощью оператора цикла for вычислить y. Оператор if в теле цикла не ис-пользовать. Значение m и n вводить с клавиатуры. Шаг изменения переменных i и j указывается только в том случае, если он отличается от единицы.

[Kolyanich]

uses crt;
var a,s,c,z,y:real;
m,n,i,k:integer;
begin
clrscr;
write('a=');
readln(a);
writeln('Введите m,n');
readln(m,n);
y:=1;
for i:=1 to n do
begin
s:=0;
for k:=0 to i do
s:=s+a+k;
y:=y*s
end;
writeln('Произведение=',y:0:4);
y:=0;
for i:=1to m do
begin
c:=1;
for k:=1 to n+m do
c:=c*i;
z:=1;
for k:=1 to i do
z:=z*k;
y:=y+c/z;
end;
writeln('Сумма=',y:0:4);
readln
end.

[Kolyanich]

Turbo Pascal

[BDA]

Примеры Вам придется самому подбирать. Код, на мой взгляд, верен, если не делать никаких упрощений (факториал можно не высчитывать каждый раз заново; сумму (a + k) можно считать быстрее, чем циклом).