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

24 Сен 2019 в 01:43
217 +1
0
Ответы
1
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.

19 Апр 2024 в 19:53
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир