Question

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

Answer 1

//прога на Pascal`е
var
a, b, i: integer;
begin
a:=17;
b:=-25;

while (a*b)<0 do
begin
inc (i);
writeln (i, ') a = ', a, '; b = ', b, '; a*b = ', a*b);
inc (a, -3);
inc (b, 5);
end;

end.