Pascalabc нужно составить программу для вывода ближайшего - вопрос №66231742 от Ррргчг2424 07.04.2022 06:52

Question

Информатика: Pascalabc нужно составить программу для вывода ближайшего степени 2-ки

Ррргчг2424 · Answer

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadInteger('Введите натуральное число:');
var p:=Round(log2(s));
Writeln('Два в степени ',p,' = ',power(2,p))
end.

Пример
Введите натуральное число: 4093532
Два в степени 22 = 4194304