Question

Помогите пожалуйста: 1.Ответьте на вопрос и составьте программу вычисления по заданному алгоритму После выполнения алгоритма b:=10 d:=50 нц пока d>=b d:=d-b кц значение переменной d равно...

Answer 1

var
    d, b : Integer;
begin

   b := 10;
   d := 50;

 

   while d >= b do
      d := d - b;

 

   Writeln('Значение переменной d = ', d);

end.

 

Ответ: d = 0

Answer 2

В данном алгоритме переменным b и d сначала присваиваются значения 10 и 50 соответственно. Затем выполняется цикл, в котором переменная d уменьшается на значение переменной b, пока d не станет меньше b.

То есть, на каждой итерации цикла значение переменной d уменьшается на 10, пока d не станет меньше 10.

Программа в псевдокоде будет выглядеть следующим образом:

b := 10
d := 50

while d >= b do
    d := d - b
end

Теперь, чтобы вычислить значение переменной d после выполнения алгоритма, нужно последовательно выполнить операции в цикле:

1. Итерация 1: d = 50 - 10 = 40 2. Итерация 2: d = 40 - 10 = 30 3. Итерация 3: d = 30 - 10 = 20 4. Итерация 4: d = 20 - 10 = 10 5. Итерация 5: d = 10 - 10 = 0

После выполнения цикла значение переменной d становится равным 0.

Итак, значение переменной d после выполнения алгоритма равно 0.