Question

PASCAL. Нужно чтобы программа считала разность 1000 и 7 до того момента, пока ответ не станет отрицательным. т.е: 1000-7=993, 993-7=986 и тд.

Answer 1

Решение на картинке:

Answer 2

Вот пример кода на языке Pascal, который будет выполнять вычитание числа 7 из числа 1000 до тех пор, пока результат не станет отрицательным:

pascalCopy code
program SubtractUntilNegative;
var
  result: Integer;

begin
  result := 1000;
  
  while result >= 0 do
  begin
    writeln(result);
    result := result - 7;
  end;
end.

Эта программа использует цикл while, который будет выполняться, пока result больше или равно нулю. В каждой итерации цикла мы выводим текущее значение result и вычитаем из него число 7. Программа продолжит выполняться, пока result не станет отрицательным.