Может в браузере в историю посмотришь,не?
Макромир это планеты, земные тела, кристаллы
микромир это атомы, элементарные частицы, ядра , молекулы
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadInteger('Введите натуральное число:');
var p:=Round(log2(s));
Writeln('Два в степени ',p,' = ',power(2,p))
end.
<u>Пример</u>
Введите натуральное число: 4093532
Два в степени 22 = 4194304
VAR
A: ARRAY [1..30] OF INTEGER;
i, max: INTEGER;
BEGIN
FOR i := 1 TO 30 DO READ (A[i]);
max := -1001;
FOR i := 1 TO 30 DO
IF (A[i]<0) AND (A[i]>max) AND (A[i] MOD 10 <>3) THEN
max := A[i];
WRITELN (max);
END.
В В5 ответом будет 7, точно такой же ответ в B4