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

[Kolyanich]

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

[unbanned]

i:=3;
y:=0;
while i<=n do begin
y:=y+i/(i+1);
i:=i+3;
end;

шаг переменной K не указан... и два подряд произведения...
вообщем со второй не совсем понятно, но думаю что будет так... возможно не верно.

i:=1;
k:=1;
y:=1;
j:=1;

while k<=n do begin
y:=y*((sqr(i)+sqr(j))/(sqr(i+j)));
i:=i*2;
j:=j+1;
k:=k+1;
end;

i:=1;
j:=1;

while i<=m do begin
y:=y*((sqr(i)+sqr(j))/(sqr(i+j)));
i:=i*2;
j:=j+1;
end;

[BDA]

Во второй должно быть j, а не k, скорее всего.

i := 1;
y := 1;
while i <= m do
begin
  for j := 1 to n do
    y := y * (i * i + j * j) / sqr(i + j);
  i := 2 * i;
end;