Question

Распечатать произведения чисел А и В изменяющихся от 17 и -25 с шагом -3 и 5 соответственнно до тех пор, пока это произведение - отрицательно число

Answer 1

Var A,B :integer;
begin
A:=17;
B:=-25;
while (a*B)<0 do begin 
  writeln (A*B); 
  A:=A-3; 
  B:=B+5;
  end;
end.

Answer 2

Для начала, найдем произведения чисел A и B, изменяющихся от 17 и -25 с шагом -3 и 5 соответственно.

Произведение чисел A и B можно выразить как A * B.

Начнем с числа A = 17 и числа B = -25.

A * B = 17 * (-25) = -425

Теперь увеличим число A на -3 и число B на 5:

A = 17 - 3 = 14 B = -25 + 5 = -20

A * B = 14 * (-20) = -280

Продолжим изменять числа A и B до тех пор, пока произведение не станет отрицательным.

A = 14 - 3 = 11 B = -20 + 5 = -15

A * B = 11 * (-15) = -165

A = 11 - 3 = 8 B = -15 + 5 = -10

A * B = 8 * (-10) = -80

A = 8 - 3 = 5 B = -10 + 5 = -5

A * B = 5 * (-5) = -25

Таким образом, произведение чисел A и B становится отрицательным при A = 5 и B = -5, и это условие выполняется.