Составьте программу вывода на экран всех степеней числа 2, меньших 100.PascalABC

Предыдущий
вопрос Следующий
вопрос

program PowersOfTwo;
var
power: Integer;
result: Integer;
begin
power := 0;
result := 1;
while result < 100 do
begin
writeln('2^', power, ' = ', result);
power := power + 1;
result := result * 2;
end;
end.

Эта программа будет выводить на экран все степени числа 2, начиная с 2^0 и увеличивая степень до тех пор, пока результат не превысит 100.