Question

Lazarus: Виконайте фрагмент програми та з'ясуйте, якими будуть значення змінних після його завершення:
a) k := 1; a := 100;
while a > 10 do
begin
a := a/2;
k := k + 1;
end;

b) s := 0; a := 5;
while a < 100 do
begin
s := s + a;
a := a*2;
end;​

Answer 1

Ответ:

a) k=5 a=6.250

b) s=155 a=160

Объяснение:

В программы были добавлены строки для наглядной трассировки исполнения программ. На каждом шаге исполнения видно, как изменяются переменные.