Question

ДАЮ 30 БАЛЛОВ определите значение переменной B после выполнения фрагмента алгоритма: A:=7 B:=0 Да A=1? Нет Нет A:=A-15 B:= B+A В ответе должно получится 21

Answer 1

Var a,b: integer;
begin
a:=7;
b:=0;
while a<=1 then do
begin
a:=a-15;
b:=b+a;
end;
writeln(b);
end.

Answer 2

Спасибо за предоставленные данные. Рассмотрим выполнение фрагмента алгоритма шаг за шагом:

1. Изначально у нас есть следующие значения переменных: A = 7, B = 0.

2. Затем проверяется условие "A = 1?". Поскольку значение A не равно 1, условие не выполняется, и переходим к следующей строке.

3. В строке "A := A - 15" значение переменной A изменяется на A - 15 = 7 - 15 = -8.

4. В строке "B := B + A" значение переменной B изменяется на B + A = 0 + (-8) = -8.

Таким образом, после выполнения данного фрагмента алгоритма значение переменной B будет равно -8, а не 21.