какое значение переменной а будет выведено на экран оператором writeln (а) в результате выполнения следующей программы?
var a, n:integer;
begin
n:=50; a:=0;
while n >1 do
begin
n:=n div 2;
a:=a+1;
end;
writeln (a)
End.

Ответ:

а=5

Если не трудно, сделай ответ лучшим)